Microsoft Access 掲示板

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

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

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