Microsoft Access 掲示板

エクセルファイルのセルの値を変数に格納したい

1 コメント
views
4 フォロー

お世話になります。
エクセルファイルのセルの値を変数に格納し、アクセスで利用したいです。

Private Sub No取得()

Dim ExApp As Object
    Set ExApp = CreateObject("Excel.Application")
ExApp.Visible = False

Dim FilePath As String
FilePath = "C:\ACCESS取込.xlsx"

ExApp.Workbooks.Open FileName:=FilePath

With ExApp.Workbooks(ExApp.Workbooks.count)
Dim PONUM As String
Dim PRNUM As String
    .Sheets(1).Cells(2, 1) = PONUM
    .Sheets(1).Cells(2, 2) = PRNUM
End With

MsgBox PONUM
MsgBox PRNUM
ExApp.Quit
End Sub

と書いてみましたが、変数に格納されません。
ご教授お願いいたします!

nanana
作成: 2022/06/07 (火) 08:54:30
通報 ...
1
nanana 2022/06/07 (火) 09:02:24 e48ae@6eb0c

自己解決ですみません。
    .Sheets(1).Cells(2, 1) = PONUM
    .Sheets(1).Cells(2, 2) = PRNUM
右辺と左辺が逆でした。
    PONUM = .Sheets(1).Cells(2, 1)
    PRNUM = .Sheets(1).Cells(2, 2)
でできるようになりました。
お騒がせしてすみませんでした。