Office中国论坛/Access中国论坛

标题: '开启EXCEL后要如何插入行 [打印本页]

作者: c101 时间: 2009-9-17 15:08
标题: '开启EXCEL后要如何插入行
Set nx = CreateObject("excel.application")
nx.Visible = True
myfile = CurrentProject.PATH & "\S1.xls"
nx.workbooks.open myfile
'開啟檔案

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

請問
VBA 要如何寫
?

謝謝

作者: todaynew 时间: 2009-9-17 17:17
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 时间: 2009-9-17 22:01
能省则省

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

作者: c101 时间: 2009-9-18 14:15
谢谢 todaynew大及版大

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

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

作者: todaynew 时间: 2009-9-18 14:22
本帖最后由 todaynew 于 2009-9-18 14:44 编辑

谢谢 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 时间: 2009-9-18 15:06
todaynew大大

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

谢谢

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)