作者j5ckiller ( )
看板Visual_Basic
标题Re: [VBA ] 选取不同档案的储存格
时间Sat Apr 21 00:45:52 2012
※ 引述《slowrock (大头源)》之铭言：
※ 引述《fumizuki (蒙面加菲狮)》之铭言：
: ※ 引述《tyrone208 (～我是幸运鬼～)》之铭言：
: : 如题 我想要选取不同档案中的储存格
: : 请问该怎麽做呢？
: : ex: A档案的某一个工作表 要选取B档案的某一个储存格内容
: : 请问可行吗？
: : 谢谢～
: 你要的应该是这样吧？
: Application.Workbooks("Book1").Worksheets("Sheet2").Range("B2").value = "VBA"
: ￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣ ￣￣￣￣￣￣￣￣￣￣ ￣￣￣￣￣￣￣￣￣
: 活页簿("工作表标题") 工作表("工作表标题") 储存格("储存格名称")
小弟也来贡献一下：
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"
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
请问这段指定路径和档名要怎麽写才正确呢?
想自学的新手困扰好久
感谢
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.115.150.12
※ 编辑: slowrock 来自: 218.167.151.156 (11/12 20:02)
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.201.219.44