'开启EXCEL后要如何插入行

c101

Set nx = CreateObject("excel.application")
nx.Visible = True
myfile = CurrentProject.PATH & "\S1.xls"
nx.workbooks.open myfile
'開啟檔案

當開啟S1.xls後想在第10 行
插入
3 行

請問
VBA 要如何寫
?


謝謝

todaynew

dim m as long,i as long
Set nx = CreateObject("excel.application")
nx.Visible = True
myfile = CurrentProject.PATH & "\S1.xls"
nx.workbooks.open myfile
nx.Shees("表名称").select    '或者nx.Shees(1).select   
nx.Rows("11:11").select
m=inputbox  "插入行数为："
for i=1 to m
      nx.Selection.Insert   Shift:=xlDown
next

liwen

能省则省
nx.Sheets(1).Rows("11:13").Insert Shift:=xlDown

c101

谢谢 todaynew大及版大

如果我要先 [复制] 11行,再 [插入复制的储存格] 3行

请问要如何改?
(抱歉,没有一次说明白)

todaynew

谢谢 todaynew大及版大

如果我要先 [复制] 11行,再 [插入复制的储存格] 3行

请问要如何改?
(抱歉,没有一次说明白)
c101 发表于 2009-9-18 14:15

我想你还会遇到很多问题，不大可能一一回答。于是乎想告诉你一个基本解决问题的办法如下：
1、在E中录制一个宏，这个宏是你想要进行的操作。
2、通过编辑宏打开VB设计视图，观察VB代码的写法是什么。
3、复制VB代码到Access中，略作写修改（主要是解决对象问题）。

比如录制一段宏，该宏的功能为复制第11行，并在其后插入粘贴3行，其宏的代码如下：
Sub Macro1()
Rows("11:11").Select
Selection.Copy
Rows("12:14").Select
Selection.Insert Shift:=xlDown
End sub

在Access中对该代码做些修改，建立一个Mycopy子程序如下：
Sub Mycopy()
dim nx as object
Set nx = CreateObject("excel.application")
nx.Visible = True
myfile = CurrentProject.PATH & "\S1.xls"
nx.workbooks.open myfile
nx.Shees("表名称").select
  
nx.Rows("11:11").Select
nx.Selection.Copy
nx.Rows("12:14").Select
nx.Selection.Insert Shift:=xlDown
end sub

如此方法基本上可以解决大多数VB编程问题。其实我就是这么干的，呵呵。

c101

todaynew大大

已 “OK” 了非常感谢您的教导

谢谢