xlsxデータをaccdbに一括インポート

質問

VBAでxlsデータをmdbに一括インポートする際には下記のように実行していましたが、
OFFICE2010に変更したら使えなくなりました。単純に拡張子をそろえただけではダメらしく、　　
appAcc.DoCmd.TransferSpreadsheet acImport, 8, 。。。の代わりを教えて頂けませんでしょうか。

　　Dim appAcc As Object
Dim wksAcc As Workspace

DoEvents
frmMain.lblMsg.Caption = "従業員リストをDBにインポートしています"

'Accessのアプリケーションオブジェクトを作成する
Set appAcc = CreateObject("Access.Application")

appAcc.OpenCurrentDatabase g_strFilePath & "TimeManagement.mdb"
Set wksAcc = CreateWorkspace("test", "admin", "", dbUseJet)

appAcc.DoCmd.TransferSpreadsheet acImport, 8, "t_EmpLst", g_strFilePath & g_strEmpLstFileName, True, "A1:G" & g_lngEmpLstLastCnt

appAcc.CloseCurrentDatabase
wksAcc.Close
Set wksAcc = Nothing
Set appAcc = Nothing

回答No.1

nicotinism · ベストアンサー

appAcc.DoCmd.TransferSpreadsheet acImport, 8, "t_EmpLst", g_strFilePath & g_strEmpLstFileName, True, "A1:G" & g_lngEmpLstLastCnt
の
8を
acSpreadsheetTypeExcel12Xml
（値としては、10）
にしてください。
g_strEmpLstFileName のファイル名の拡張子は、xlsx ですね。
（実際にある○△.xlsx をインポートしたいのですかということです）

wksAcc は使っていないようです。
全部コメント行にして問題なかったら削除でも？
（そのまま残しておいても盲腸のような存在ですので害は無いとは思います）