关于VBA的Excel 基础数据导入到模版问题！

tangtang89522 2009-04-03 03:10:24

Sub data_importing(ByVal sheetname As String, ByVal sourcesheet As String, ByVal destination As String)

'-------------------------------
'--- sheetname:目标工作表名
'--- sourcesheet:源数据表名
'--- destination:导入目标单元格地址
'-------------------------------

Worksheets(sheetname).Activate
'With ActiveSheet.QueryTables.Add _
' (Connection:="ODBC;DSN=Excel Files;DBQ=D:\本月业绩.xls;DefaultDir=D:\;DriverId=790;MaxBufferSize=2048;PageTimeout=5;", _
' destination:=Range(destination))

sPathName = "D:\"
sFileName = "本月业绩信息"

With ActiveSheet.QueryTables.Add _
(Connection:="ODBC;DSN=Excel Files;DBQ=" & sPathName & sFileName & ".xls;" _
& "DefaultDir=" & sPathName & ";DriverId=790;MaxBufferSize=2048;PageTimeout=5;", _
destination:=Range(destination))
.CommandText = Array("SELECT * FROM `" & sPathName & sFileName & "`." & sourcesheet)
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False End With

End Sub

以上是代码！红色代码处为报错处！我没有多少分拉！帮忙看看！谢谢啦！

...全文