作者tenor0118 (困难都让我负荷)
看板Visual_Basic
标题[VBA ] 如何传送指定资料到不同巨集中的sheet里
时间Fri Mar 26 15:56:41 2010
我是在excel sheet1写的巨集
在不开启档案的情况下
想将资料传送到sheet2
以下巨集是我目前的写法
Dim myCnc1 As String
Dim myCnc2 As String
Dim myCnc3 As String
Dim myCmd As String
Dim myQryTbl As QueryTable
Dim myFileName As String
Dim a As String
Dim b As String
a = Range("ak2").Value
b = Range("ak3").Value
myFileName = a & "\" & b & ".xls"
myCnc1 = "ODBC;"
myCnc2 = "DBQ=" & ThisWorkbook.Path & "\" & myFileName & ";"
myCnc3 = "Driver={Microsoft Excel Driver (*.xls)};"
myCmd = "SELECT * FROM [1$]"
With ActiveSheet.QueryTables.Add( _
Connection:=myCnc1 & myCnc2 & myCnc3, _
Destination:=Worksheets("sheet2").Range("BB1"))
.CommandText = myCmd
.Refresh
End With
黄色是侦错的部分
并出现
执行阶段错误'-2147024809 (80070057)':
目标范围不在查询表单所在的工作表上
小弟我是新手
还望各位高手能救救我
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 140.112.69.78