別のレパートリーのワークブックのデータにアクセスしたいのですが、構文がわかりません。手伝ってくれませんか。
私はそのようなことを試しましたが、うまくいきません
Workbooks("U:\a.xlsx").Sheets("a").Range("A2")
値を読み取るには、最初にそのファイルを開く必要があります。
Dim MyWb As Workbook
Set MyWb = Workbooks.Open(Filename:="U:\a.xlsx", ReadOnly:=True) 'readonly if you only need to read
'read the value
Debug.Print MyWb.Worksheets("a").Range("A2")
'close it after reading
MyWb.Close SaveChanges:=False
または、ブックを表示せずにバックグラウンドで非表示にしたい場合:
'open a new hidden Excel
Dim ExApp As Excel.Application
Set ExApp = New Excel.Application
ExApp.Visible = False
'open the workbook in that hidden ExApp
Dim MyWb As Workbook
Set MyWb = ExApp.Workbooks.Open(Filename:="U:\a.xlsx", ReadOnly:=True)
'read the value
Debug.Print MyWb.Worksheets("a").Range("A2")
'close it after reading
MyWb.Close SaveChanges:=False
'close hidden Excel
ExApp.Quit
ここで、適切なエラー処理は、エラーが発生した場合にExAppを確実に閉じるのに役立つ場合があります。それ以外の場合、プロセスは開いたままになります。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加