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
↧