とうとう朝になってしまいました。
もう丸2日間も悩んでいます。
どなたか解決方法をご存知の方、よろしくお願いいたします。
AccessVBA内のモジュールからExcelファイルを開いて、そこへデータを出力するという処理は動きます。
そこで、出力する前に、Excelのセルの書式設定を列毎にしようとしていますが、どうしても上手くいきません。
下記のような感じでは、使えないのでしょうか?
Set xls = GetObject("c:AAA\TEST.xls")
xls.Application.Windows(1).Visible = True
xls.Application.worksheets("sheet1").Activate
xls.Application.worksheets("sheet1").RANGE("A:A").Selection.NumberFormatLocal = "\#,##0;\-#,##0"
なにか良い方法がありましたら教えてください!!
よろしくお願い致します。
No.2
- 回答日時:
逆にACCESS知らないんですけどEXCEL党の僕からみると明らかにSelectionが要らないです。
回答ありがとうございました。m(__)m
ちょっと試してみましたが、
今回の件では、
Selectionはあまり問題ではさそうでした。
No.1
- 回答日時:
Excel は操作したこともないプログラマですが、
なるほど、失敗しますね!
Private Sub cmdImport_Click()
Dim xlApp As Object
Dim xlBook As Object
Set xlApp = CreateObject("Excel.Application")
Set xlBook = xlApp.workbooks.Open("D:\Sales2005\営業報告書.xls")
xlApp.Visible = True
xlApp.cells(1, 1) = 123400
xlApp.cells(1, 1).NumberFormat = "$#,##0;$-#,##0"
End Sub
これで、\123,400 と表示されました。
ビックリしたーという感じです!
この回答への補足
回答ありがとうございます。m(_ _)m
参考書などにも、cellsの例は載っているので、多分cells だと上手くいくと思います。
ここがRangeでも上手くいくと良いのですが・・・。
後ほど、上記の文を応用して、試してみようと思います。
上手くいくといいです・・・。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Visual Basic(VBA) ExcelのVBAコードについて教えてください。 2 2022/03/25 08:33
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/03/07 14:05
- Excel(エクセル) Excel VBAどこが間違ってますか? 4 2023/07/17 10:04
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/06/04 09:39
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Visual Basic(VBA) VBAでoutlook365が起動しません。 4 2022/08/25 13:31
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ACCESS側からEXCELの書式を設定するには?
Visual Basic(VBA)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
-
4
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
5
ACCESSのVBAにてExcelのシートをコピーしたい
その他(データベース)
-
6
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
7
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
8
AccessからExcelに罫線付で出力したい
Excel(エクセル)
-
9
Accessの桁区切りについて教えてください。
Access(アクセス)
-
10
ACCESSのVBAにてExcelに行を追加したい
その他(データベース)
-
11
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
12
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
13
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
14
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
15
ACCESSのVBで、エクセルファイルの最終行を取得
Excel(エクセル)
-
16
AccessVBAでExcelを起動し、罫線を引きたいのですが、Exc
Visual Basic(VBA)
-
17
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
18
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
19
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
20
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Range("A1")⇔cells(1,1)の変換。
-
AccessVBAから、Excelシート内...
-
VB2010でのExcel操作
-
エクセルのマクロについて教え...
-
ExcelVBA修正のお願い
-
VBAマクロ実行時エラーの修正に...
-
「段」と「行」の違いがよくわ...
-
マクロの「SaveAs」でエラーが...
-
エクセルで複数のシートのクリ...
-
Worksheets メソッドは失敗しま...
-
LEFT関数とIF関数の組み合わせ...
-
VBAで色の付いているセルの行削除
-
エクセル マクロ オートフィ...
-
特定の色のついたセルを削除
-
[EXCEL]ボタン押す→時刻が表に...
-
Excelで、あるセルの値に応じて...
-
VBA シートをコピーする際に Co...
-
Excel VBAでのWorksheet_Change...
-
Alt+Shift+↑を一括で行うには、...
-
ワイルドカード「*」を使うとう...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA
-
Range("A1")⇔cells(1,1)の変換。
-
vba formulaの中での変数の扱い
-
VBA SUM関数に変数を入れた計算...
-
エクセル マクロ range
-
エクセルvbaのコンパイルエラー
-
AccessVBAから、Excelシート内...
-
セルの値を足す
-
初歩的な質問で申し訳ありませ...
-
csv形式でも文字点滅可能でしょ...
-
VB2010でのExcel操作
-
Access2000のVBAコードの最適化
-
VBAマクロ実行時エラーの修正に...
-
エクセル マクロ オートフィ...
-
VBA シートをコピーする際に Co...
-
Worksheets メソッドは失敗しま...
-
エクセルで複数のシートのクリ...
-
エクセルで特定の文字列が入っ...
-
Excelで、あるセルの値に応じて...
-
あああ..ああい..ああう とい...
おすすめ情報