当前位置：首页 → 问答吧 → 外部引用时出错，求解

外部引用时出错，求解

时间：2011-08-08

来源：互联网

今天刚接触外部引用，感觉这种引用方式很不错，但是写程序的时候老是出错，没有一次写出来的，最常出的一个问题是：缺少表达式。（附件1）
还出现的一个问题是：缺少行号或标签或语句结束（附件2）

为什么？求解！谢谢~

语句如下：

Sub test()
k = 1
j= 'C:\test\[Book1.xls]Sheet1'!G1
End Sub

附件

缺少表达式.png(40.36 KB)

2011-8-8 20:59

缺少行号.png(39.63 KB)

2011-8-8 20:59

作者: jinqiujinxia 发布时间: 2011-08-08

用录制宏用一下就知道了

作者: flysum2008 发布时间: 2011-08-08

嗯，有道理，录制宏也是学习、摸索VBA的真理……

作者: zzmxy 发布时间: 2011-08-08

谢谢楼上的两位，但是我有点不明白是什么意思，我试着录制了一下，如下，但是还是没有明白。。。。继续求解

Sub Macro1()
'
' Macro1 Macro
' 宏由微软用户录制，时间: 20011-8-8
'

'
Range("A1").Select
Windows("book2.xls").Activate
Range("A1").Select
Selection.Copy
Windows("Book1.xls").Activate
ActiveSheet.Paste
End Sub

作者: jinqiujinxia 发布时间: 2011-08-08

得先学习宏的用语。

作者: HCF229007 发布时间: 2011-08-08

比如不明白Select这个词的意思，先用鼠标选择它，然后按F1就知道什么意思了。前提是你安装了office帮助

作者: flysum2008 发布时间: 2011-08-08

谢谢。。依然不明白啥意思，不过我先试试看~

作者: jinqiujinxia 发布时间: 2011-08-08

引用:

原帖由 jinqiujinxia 于 2011-8-8 21:55 发表
谢谢。。依然不明白啥意思，不过我先试试看~

大概意思如下，这就是宏代码，一个操作一句代码，一点都不偷工减料！！
当你学会了之后，就可以开始自己简化，自己写代码，如后面的一句代码。

复制内容到剪贴板

代码:

Sub Macro1()
'
' Macro1 Macro
' 宏由微软用户录制，时间: 20011-8-8
'

Range("A1").Select             '选择(单击)A1单元格
Windows("book2.xls").Activate '打开(激活) book2.xls这个工作簿
Range("A1").Select             '选择(book2.xls工作簿的)A1单元格
Selection.Copy                '复制当前选择的单元格(A1单元格)
Windows("Book1.xls").Activate '打开(激活) Book1.xls这个工作簿
ActiveSheet.Paste             '粘贴 (默认使用当前已选择的单元格)
End Sub

复制内容到剪贴板

代码:

Sub zz()

Workbooks("book2.xls").Sheets(1).Range("A1").Copy Workbooks("Book1.xls").Sheets(1).Range("A1")
'复制book2.xls 第1个工作表A1单元格的值到Book1.xls 第1个工作表的A1单元格

End Sub

作者: zzmxy 发布时间: 2011-08-08

外部引用时出错，求解

附件

引用:

代码:

代码:

热门阅读

热门下载