[算表] VBA將其他活頁簿工作表複製過來

看板Office作者kcyy (嫑槑)時間7年前 (2019/01/18 18:15)推噓0(0推 0噓 11→)

留言11則, 2人參與討論串1/1

軟體:EXCEL 版本:2010 我想要將其他沒開啟的活頁簿中的某一分頁，複製到我現在的活頁簿新增的工作表中在網路上找到其他大神提供的方法如下，我把他改成放在D槽，但是執行的時候如果沒有開啟"D:\Book2.xls"這個活頁簿，都會在錯誤那行，必須要活頁簿開啟的狀態下才能成功，請問有什麼方法可以不開啟活頁簿就直接複製過來? 謝謝資訊如下: 把 Excel 活頁簿當成來源資料庫: 假設要匯入 "D:\Book2.xls" 的 "sheet3", 不需開啟 "D:\Book2.xls" : Sub 工作表匯入() ActiveWorkbook.Worksheets.Add With ActiveSheet.QueryTables.Add(Connection:=Array( _ "OLEDB;Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data Source=D:\Book2.xls;Mode=Share Deny Write;Extended Properties=""H" _ , _ "DR=NO;"";Jet OLEDB:System database="""";Jet OLEDB:Registry Path="""";Jet OLEDB:Database Password="""";Jet OLEDB:Engine Type=35;Jet OLED" _ , _ "B:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database Passwo" _ , _ "rd="""";Jet OLEDB:Create System Database=False;Jet OLEDB:Encrypt Database=False;Jet OLEDB:Don't Copy Locale on Compact=False;Jet O" _ , "LEDB:Compact Without Replica Repair=False;Jet OLEDB:SFP=False"), Destination _ :=Range("A1")) .CommandType = xlCmdTable .CommandText = Array("Sheet3$") .Name = "Book2" .FieldNames = False .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .PreserveColumnInfo = True .SourceDataFile = "D:\Book2.xls" .Refresh BackgroundQuery:=False '錯誤錯誤錯誤錯誤錯誤 End With End Sub -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.35.89.228 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1547806518.A.389.html