ACCESSでVBAを用いてクエリをEXCEL出力したいのですが
ACCESSでVBAを用いてクエリをEXCEL出力したいのですが 下記のプログラムでクエリ→EXCEL出力→デスクトップへ保存まではできました。 しかし出来上がったEXCELファイルを印刷しようとしたところ格子状の罫線がない状態になってしまいます。 質問としては 出来上がったEXCELに格子状の罫線を入れて印刷できるように下記のプログラムに追記するコードを教えて頂きたいです。 また可能であればExcelの印刷の設定で ・横方向 ・全ての列を1ページに印刷 もしたいです。 言葉足らずでしたら申し訳ございません。 その際はご質問下さい。 コメントに返信させて頂きます。 何卒よろしくお願いします。 Private Sub コマンド0_Click() DoCmd.SetWarnings False DoCmd.RunMacro "マクロ1" DoCmd.SetWarnings True sDir = CreateObject("Wscript.Shell").Special Folders("Desktop") If Right(sDir, 1) <> "¥" Then sDir = sDir & "¥" 'Excelファイル名設定 sFileNM_A = sDir & "ファイル名" & ".xls" '同名ファイル削除 If Dir (sFileNM_A) <> ""Then Kill sFileNM_A 'Excel出力 DoCmd.TransferSpreadsheet ac Export, ac SpreadsheetTypeExcel9, "クエリ名", sFileNM_A MsgBox"Excelに出力しました", vbInformation, "Excel出力終了" End Sub
Visual Basic | Microsoft Access・77閲覧・500
ベストアンサー
VBAで、 ①出力されたファイルをExcel.Applicationで開き Dim xlApp As Object Dim xlBook As Object Dim xlSheet As Object Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open(strFileName, , False) Set xlSheet = xlBook .WorkSheets("シート名") ②データ領域に罫線を引いて、 xlSheet.UsedRange.Borders.LineStyle = 1 ③上書き保存 xlApp.DisplayAlerts = False xlBook.Save xlBook.Close xlApp.Quit
この返信は削除されました
