作者fumizuki (蒙面加菲狮)
看板Visual_Basic
标题Re: [VBA ] 选取不同档案的储存格
时间Sat Apr 21 11:17:44 2012
※ 引述《j5ckiller ( )》之铭言：
: ※ 引述《slowrock (大头源)》之铭言：
: Sub LinkToOtherBook()
: '取得工作簿A资料的方法,假设此句集放在工作簿B,选取要取得资料之工作表：
: ' 例１、如果工作簿A已开启
: Range("B1").formula = "=[WorkbookA.xls]Sheet1!B1"
: ' 例2、如果工作簿A未开启
: Range("A1").formula = _
: "='C:\[WorkbookA.xls]Sheet2'!B5"
: ' 例3、如果工作簿A未开启，且要取得多於一个单元格的资料
: Range("A5:C7").formulaArray = "='C:\[WorkbookA.xls]Sheet2'!B2:D4"
: End Sub
: 请问若是例三的方式
: 但我档名和路径都用自定的变数代替
: 如:
: Dim myFile as string
: Dim FileName as string
: FileName = Range("J1")
: myFile = ThisWorkbook.Path & "\" & FileName & ".xls"
: Range("a1:b3").FormulaArray =
: "='ThisWorkbook.path & "\" & "\" & FileName & ".xls"sheet1 '!a1:b3"
: ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
: 请问这段指定路径和档名要怎麽写才正确呢?
: 想自学的新手困扰好久
: 感谢
Dim FilePath As String '路径
Dim FileName As String '档案名称
Dim SheetName As String '工作表名称
Dim Address As String '储存格位址
FilePath = "C:\temp"
FileName = "book1.xls"
SheetName = "Sheet1"
Address = "B2:D4"
If Not FilePath Like "*\" Then
FilePath = FilePath & "\" '结尾自动补上反斜线
End If
Range("A1:B3").FormulaArray = _
"='" & FilePath & "[" & FileName & "]" & SheetName & "'!" & Address
--
▃▅▇▆▄ ▆▂▃ `
逝去感情如何能留住，半点痴情遗留殊不易，██▅▇▄▃ ▇▃▂" .
█████████▃i ▁▄▇
更多凄凄惨惨的遭遇…………██▆▃ █▅▆▃ˍ▄*
◢ ▂█▄▇▅▂▌.
我不知道，王～八～蛋～～！ ▂▆███ █▄▃ 。fumizuki。Check。
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 180.176.149.188
1F：推 j5ckiller:了解，感谢板大 04/21 16:40