アクセスのモジュールについて教えてください。 以前教えていただいた以下のモジュールで、「T_棚卸差異」テーブルにある「店舗名」ごとにエクセルファイルに出力できるようになりました。 エクセルファイル名を「T_棚卸差異」テーブルにある、「店舗コード」&「店舗名」の表示に変更したいです。 以下モジュールを更新する形で教えていただけると大変ありがたいです。 よろしくお願いいたします。 Sub ExportToExcel() Dim db As DAO.Database Dim rs As DAO.Recordset Dim strSQL As String Dim strPath As String Set db = CurrentDb() strSQL = "SELECT DISTINCT 店舗名 FROM T_棚卸差異_カスタマー送付" Set rs = db.OpenRecordset(strSQL) strPath = CurrentProject.Path & "\" Do Until rs.EOF On Error Resume Next DoCmd.DeleteObject acQuery, rs!店舗名 strSQL = "SELECT * FROM T_棚卸差異_カスタマー送付 WHERE 店舗名 = '" & rs!店舗名 & "' ORDER BY 棚卸差異率 DESC" db.CreateQueryDef rs![店舗名], strSQL DoCmd.OutputTo acOutputQuery, rs!店舗名, "ExcelWorkbook(*.xlsx)", strPath & rs!店舗名 & ".xlsx" DoCmd.DeleteObject acQuery, rs!店舗名 rs.MoveNext Loop rs.Close Set rs = Nothing Set db = Nothing MsgBox "エクセルファイルを出力しました。", vbOKOnly + vbInformation, "処理完了" End Sub
Microsoft Access
