| |
[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
上記「←」の箇所でコンパイルエラーとなってしまいます。
やはり参照設定しないとだめでしょうか？
エラーを回避する方法をご存知の方がいらっしゃいましたらご教授願います。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
