Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4268 / 9994

←次へ　｜　前へ→


	【8973】AccessからExcelの書式設定をする方法

まっちゃ - 07/1/11(木) 16:43 -


	引用なし

	パスワード

[AccessのVER]:2003
[ExcelのVER]:2003

AccessのクエリをExcelへ出力しています。(TransferSpreadsheet)
同時にExcelの書式設定も行いたいのですがうまくいきません。
Excelのバージョンが異なる環境でも正常に動作させたいので
「Microsoft Excel11.0 object Library」を参照設定に追加したくありません。
当掲示板で検索したところ、参照設定なしでも正常に動作させるコードが載っていたのでそれを参考にして以下のコーディングを行ったところ、

　　Dim objExlApp As Object
　　Dim objExlBook As Object
　　Dim objExlSheet As Object

　　Set objExlApp = CreateObject("Excel.Application")
　　Set objExlBook = objExlApp.Workbooks.Open(strFileName)
　　
　　objExlApp.Visible = True

　　Set objExlSheet = objExlBook.WorkSheets(stWorkSheet)

　　objExlSheet.Cells.Select
　　With objExlApp.Selection
　　　　.HorizontalAlignment = xlLeft　　　←
　　　　.VerticalAlignment = xlTop
　　　　.WrapText = True
　　　　.Orientation = 0
　　　　.AddIndent = False
　　　　.IndentLevel = 0
　　　　.ShrinkToFit = False
　　　　.ReadingOrder = xlContext
　　　　.MergeCells = False
　　End With

上記「←」の箇所でコンパイルエラーとなってしまいます。
やはり参照設定しないとだめでしょうか？
エラーを回避する方法をご存知の方がいらっしゃいましたらご教授願います。

379 hits

▼

【8973】AccessからExcelの書式設定をする方法 まっちゃ 07/1/11(木) 16:43

≪