1

現在のシートの列 B の最初の空のセルに値を入力する必要があります。値は、絶対パスで識別される別のワークブックから読み取る必要があります。

それは私のうまくいかない試みです:

Sub Macro1()
    Range("B1").Select
    Do While Not IsEmpty(ActiveCell)
        ActiveCell.Offset(1, 0).Select
    Loop
    ActiveCell.Value = "=[C:\Users\Manu...\Source.xlsx]Sheet1!A1"
End Sub

最後の行でエラー 1004 が発生します。どうすれば修正できますか？可能であれば、ソース ワークブックを開かないようにしたいと思います。

4

1 に答える 1

2

これは数式を書き込もうとする正しい試みだと思います（最初の空のセルに書き込もうとしています）：

ActiveCell.Value = "='C:\Users\Manuel\Desktop\[Source.xlsx]Sheet1'!A1"

single quotation marksとの位置を見てくださいsquare brackets。

于 2013-06-11T21:07:33.180 に答える