【加入】支持電腦學習園地
https://www.youtube.com/channel/UCYkWZY6-NlkU6qEkEtK3s0Q/join
✅購買完整課程內容
https://shopee.tw/alyoou
✅請【訂閱】我們的頻道
如果這部影片對你有幫助的話,請幫我按個讚,給我點鼓勵,也多分享給需要的朋友們喔~
➡️訂閱我們的頻道
主頻道:https://pse.is/pclearncenter
OFFICE辦公室應用: https://pse.is/office
AutoCAD電腦製圖: https://pse.is/AutoCAD
美工設計: https://pse.is/PSAI
軟體應用: https://pse.is/soft
影片剪輯: https://pse.is/mclip
➡️FB粉絲團
https://www.facebook.com/pclearncenter
推薦課程
【illustrator CC AI基礎教學】
https://www.youtube.com/watch?v=fA4LTxGpOH0&list=PLwwPq48LW7z-2MFp-jA1a_IQLU7fe9ZjT
【PowerPoint PPT教學】
https://www.youtube.com/watch?v=rKNStKEFoW0&list=PLwwPq48LW7z-Rp_6BCqHTXha3F-BPpAPw
【Microsoft Excel教學】
https://www.youtube.com/watch?v=Vl0febV7Kmc&list=PLwwPq48LW7z_uFzBKXFsU0KZqSP7Ky_Up
【Excel VBA程式設計教學】
https://www.youtube.com/watch?v=bUNP9lVbSWc&list=PLwwPq48LW7z_vK171m2neLyz0GzyqRCZH
【Micorsoft Word教學】
https://www.youtube.com/watch?v=J8PpOwwcK7Q&list=PLwwPq48LW7z86-TqMtDejWBKjZD9u1_Rj
【PS教學Photoshop】
https://www.youtube.com/watch?v=kbMyyt8WS6M&list=PLwwPq48LW7z9lyFs6xEiae4uDddWJ1x9e
【會聲會影X9 影片剪輯教學】
https://www.youtube.com/watch?v=QfcXIC_l33Q&list=PLwwPq48LW7z8CNIHEPi3lrQwJMAv-ceiW
【AutoCAD製圖教學】
https://www.youtube.com/watch?v=W7kGvMBgdEs&list=PLwwPq48LW7z_g02sbOzipI3_y1HIyXEUN
#電腦教學 #軟體教學 #教學影片
「vba新增活頁簿」的推薦目錄:
- 關於vba新增活頁簿 在 電腦學習園地 Youtube 的精選貼文
- 關於vba新增活頁簿 在 [算表] VBA將其他活頁簿工作表複製過來- 看板Office 的評價
- 關於vba新增活頁簿 在 【Excel VBA教學】25 新增活頁簿與關閉 的評價
- 關於vba新增活頁簿 在 04 用VBA新增工作表與重新命名 - YouTube 的評價
- 關於vba新增活頁簿 在 如何使用excle VBA 新增sheet於當前工作表之後並命名 的評價
- 關於vba新增活頁簿 在 VBA設置好UserForm表單圖片後,可進一步設定事件驅動程式 的評價
- 關於vba新增活頁簿 在 Excel 網頁版 的評價
- 關於vba新增活頁簿 在 [問題] VBA Sheets.Count - 看板Office | PTT數位生活區 的評價
vba新增活頁簿 在 [算表] VBA將其他活頁簿工作表複製過來- 看板Office 的推薦與評價
軟體: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
... <看更多>