Re: [VBA ] 選取不同檔案的儲存格
※ 引述《j5ckiller ( )》之銘言:
: ※ 引述《slowrock (大頭源)》之銘言:
: Sub LinkToOtherBook()
: '取得工作簿A資料的方法,假設此句集放在工作簿B,選取要取得資料之工作表:
: ' 例1、如果工作簿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
推
04/21 16:40, , 1F
04/21 16:40, 1F
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 5 之 5 篇):