作者kcyy (嫑槑)
看板Office
标题[算表] VBA将其他活页簿工作表复制过来
时间Fri Jan 18 18:15:14 2019
软体: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://webptt.com/cn.aspx?n=bbs/Office/M.1547806518.A.389.html
1F：→ soyoso: 不开启活页簿可以ado方式 01/18 18:28
2F：→ soyoso: range.copyfromrecordset 01/18 18:29
3F：→ soyoso: 或是在储存格内以"='[完整路径\档名.xls]sheet3'!储存格 01/18 18:33
4F：→ soyoso: 再range.copy到其他储存格，如要只保留值的话 01/18 18:34
5F：→ soyoso: range.pastespecial贴上值 01/18 18:35
6F：→ soyoso: 以=...储存格方面，有可能会因来源工作表为空白储存格而回 01/18 18:36
7F：→ soyoso: 传0值，就看要调整或就以ado方式 01/18 18:37
8F：→ soyoso: 测试了一下原文的巨集，是可以在不开档下回传的 01/18 19:09
10F：→ soyoso: 测试版本同原文写到的2010 01/18 19:10
11F：→ kcyy: 感谢S大协助 01/18 22:22