No.3ベストアンサー
- 回答日時:
>コンパイルエラー:修飾子が不正です。
失礼しました。ざっと書いたものでSheetの宣言が一つ抜けてました。
Dim xlSheet As Excel.Worksheet
を追加してください。
Dim objExcelApp As Workbook
Dim strExcelFile As String
Dim strExcelSheet As String
Dim xlSheet As Excel.Worksheet '←追加
そして記述中の宣言以外の部分で使っているstrExcelSheet.Cells(1, 1).Value = "12"の部分から以下のstrExcelSheet.をxlSheet.に置き換えてください。
xlSheet.Cells(1, 1).Value = "12" のように。
VBEの編集の置換で簡単に出来ますので。
>データ型の指定・セルの背景色ヘッダーの指定の操作方法
Range("A1").Select
With Selection.Interior
.ColorIndex = 5 'ExcelのカラーNoの数字で指定
.Pattern = xlSolid
End With
ヘッダはWith xlSheet.PageSetupの中で
.LeftHeader = ""
.CenterHeader = "&""MS Pゴシック,太字""&16ヘッダ名"
.RightHeader = ""
で指定できます。上記は中ヘッダにゴシック太字ヘッダ名を指定。フッタは同様に下記で指定。
.LeftFooter = ""
.CenterFooter = ""
.RightFooter = ""
Range("A19").Select
Selection.NumberFormatLocal = "\#,##0;\-#,##0;\0"
日付なら = "yyyy/mm/dd;@" のように指定。
No.2
- 回答日時:
操作できます。
VBEの参照設定でMicrosoft Excel ?.? ObjectLibrary(バージョン不明なので)にチェックを入れます。
Private Sub Cmd1_Click()
On Error Resume Next
Dim objExcelApp As Workbook
Dim strExcelFile As String
Dim strExcelSheet As String
strExcelFile = "C:\test.xls" 'エクセルのファイル名
strExcelSheet = "sheet1" 'ブックのシート名
Set objExcelApp = GetObject(strExcelFile, "Excel.Sheet")
'※Excelの指定セルに値を代入する場合
strExcelSheet.Cells(1, 1).Value = "12"
'※セルのフォント等の指定
With objExcelApp.Worksheets(strExcelSheet)
With .Cells(1, 1)
.Font.Size = 18 'フォントサイズの指定
.Font.Name = "MS P明朝" 'フォントの指定
.Font.Bold = True '太字の指定
End With
.Cells(1, 1).ColumnWidth = 8 'A列の幅を8に指定
.Rows(1).RowHeight = 26 '1行目の高さを26に指定
End With
'※罫線を引く
strExcelSheet.Range("A1:F6").Borders.LineStyle = xlContinuous '指定範囲に格子の罫線を引く
strExcelSheet.Range("A1:F6").Borders(xlEdgeTop).LineStyle = xlGray75 '太線を引く
'(xlEdgeTop)(xlEdgeLeft)(xlEdgeRight)(xlEdgeBottom)で線引く部分を指定
With strExcelSheet.PageSetup
.PaperSize = xlPaperA4 '用紙サイズ指定(A4)の場合
.Orientation = xlPortrait '印刷の向き横はxlLandscape
'※印刷時余白設定 各余白をCm単位で設定
.LeftMargin = xlApp.CentimetersToPoints(2)
.RightMargin = xlApp.CentimetersToPoints(2)
.TopMargin = xlApp.CentimetersToPoints(2.5)
.BottomMargin = xlApp.CentimetersToPoints(2.5)
.HeaderMargin = xlApp.CentimetersToPoints(1)
.FooterMargin = xlApp.CentimetersToPoints(1)
End With
strExcelSheet.PrintOut
objExcelApp.Application.Quit
Set objExcelApp = Nothing
End Sub
こんな感じでAccessからVBを使って操作できます。
この回答への補足
重ね重ね申し訳ございません。
他の指定方法(ヘッダー、背景色など)はO_cyanさんが記述してくれたものを参考にできました。
でも、ボタンクリック時にうまく動作しません。
参照設定は行いました。
エラー内容は下記の通りです。
コンパイルエラー:修飾子が不正です。
宜しくお願い致します。
O_cyanさん、大変理解しやすいサンプルをありがとうございます。
度々で申し訳ございませんが、データ型の指定、セルの背景色、ヘッダーの指定の操作(指定)方法もご教授お願いできますでしょうか?
宜しくお願い致します。
No.1
- 回答日時:
CELSIOR_2005さんこんにちは
以前Accessを使っておりました。
>Excelのファイルのセルを指定し、罫線を描いたり、
>データ型を指定したり、フォント、文字サイズ、
>セルの背景色、ヘッダーの指定、印刷時の用紙サイズ、
>印刷時の余白の設定
上記ですと全て実現可能です。
ednanさん、早速のご回答ありがとうございます。
説明不足で申し訳ございません。
初心者なものでサンプル的なものや参考サイトなどを教えていただけると助かります。お願いできますでしょうか?
宜しくお願い致します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Access(アクセス) accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー 2 2023/05/17 17:02
- Word(ワード) Wordでの印刷サイズについて A4の原稿をB5サイズで出力したいとき、 印刷から用紙サイズの指定か 4 2022/04/30 09:51
- Excel(エクセル) Excel VBAで、行の高さを、上下1文字分程度高くしたい 3 2023/04/23 00:17
- Excel(エクセル) エクセル2013「次のページ数に合わせて印刷」が小さすぎる 9 2023/03/28 10:18
- Excel(エクセル) エクセルのフッタやヘッダーについて 3 2023/02/04 09:45
- Access(アクセス) accessでexcelを読み込む時のデータ型 1 2022/03/28 19:45
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
ACCESS側からEXCELの書式を設定するには?
Visual Basic(VBA)
-
AccessからExcelへエクスポートするときにファイル名を指定したい。
Excel(エクセル)
-
accessデータを指定したExcel、そして指定したセルへエクスポートするaccess VBAコー
Access(アクセス)
-
-
4
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
5
Accessにインポートしたら並び順が変わっちゃった
Access(アクセス)
-
6
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
7
ACCESS で 項目名を出力せずにエクスポートしたい
その他(データベース)
-
8
エクスポートされたエクセルの塗りつぶしの色について
その他(Microsoft Office)
-
9
AccessからExcelに罫線付で出力したい
Excel(エクセル)
-
10
ACCESS2010 Excelエクスポート タイトルの上行1行目に固定の文字を入れたい。
その他(データベース)
-
11
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
12
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
13
AccessからExcelへの条件付エクスポート
その他(データベース)
-
14
AccessからExcelのファイルを起動する
その他(データベース)
-
15
アクセスのレポートをマクロでEXCELに出力したいのですが
Access(アクセス)
-
16
エラー(型が一致しません。)の対処方法
Visual Basic(VBA)
-
17
Accessで値がnullの場合は計算せずにnullをかえす方法
Access(アクセス)
-
18
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
19
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
20
アクセスで#エラーを表示させない方法は?
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
セルの塗りつぶしに透明度を設...
-
excelで抽選券を作り、通し番号...
-
セルの一部を白黒印刷
-
数字をカウントしながらエクセ...
-
エクセルの表で金額の桁区切り...
-
例えば、キッチリ「縦10cm...
-
エクセルで全体に大きくしたい
-
エクセルで2ページ目に何も書...
-
エクセルで罫線の一部が印刷さ...
-
エクセル(ワード)のセルに罫...
-
WORDで行の高さを別々に設...
-
エクセルの画面色の変更は
-
エクセルでカードを作る時、紙...
-
excel、画像に枠線が表示されて...
-
斜め罫線の正しい引き方(ビジネス)
-
セルの高さ・幅の自動調整をし...
-
Excelについて
-
WordをPDFにするとセルの罫線が...
-
excelの改ページについて
-
Excel 数行分セル結合したあと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
セルの塗りつぶしに透明度を設...
-
数字をカウントしながらエクセ...
-
excelで抽選券を作り、通し番号...
-
エクセルで2ページ目に何も書...
-
エクセルで罫線の一部が印刷さ...
-
セルの一部を白黒印刷
-
エクセルの表で金額の桁区切り...
-
例えば、キッチリ「縦10cm...
-
セルの高さ・幅の自動調整をし...
-
excel、画像に枠線が表示されて...
-
WORDで行の高さを別々に設...
-
エクセルでカードを作る時、紙...
-
エクセルで全体に大きくしたい
-
斜め罫線の正しい引き方(ビジネス)
-
EXCELに文字を入力するとセルの...
-
エクセルで文字がずれる
-
エクセル(ワード)のセルに罫...
-
Excelの白フォントを印刷しない...
-
1ページだけのエクセルシート...
-
EXCELでセルの内容を完全に印刷...
おすすめ情報