とうとう朝になってしまいました。
もう丸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も見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
ACCESS側からEXCELの書式を設定するには?
Visual Basic(VBA)
-
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
アクセスからエクセルのシートを追加して、名前をつける方法
Excel(エクセル)
-
-
4
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
5
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
6
ACCESSのVBAにてExcelのシートをコピーしたい
その他(データベース)
-
7
AccessVBAでExcelを起動し、罫線を引きたいのですが、Exc
Visual Basic(VBA)
-
8
AccessからExcelに罫線付で出力したい
Excel(エクセル)
-
9
accessでクエリをExcelにエクスポートする時にファイル名に日付を追加したい
Access(アクセス)
-
10
Access-VBAでExcelファイルを作成する。
Excel(エクセル)
-
11
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
12
ACCESSのVBで、エクセルファイルの最終行を取得
Excel(エクセル)
-
13
Accessで、1つの項目に複数の置換えを1度でするには?
Access(アクセス)
-
14
accessからエクセルにエクスポートしたファイルを開きたい。
Excel(エクセル)
-
15
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
16
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
17
アクセスvbaでエクセルブックを保存
その他(Microsoft Office)
-
18
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
19
Accessのスプレッドシートエクスポートで、シートが追加されてしまう
Access(アクセス)
-
20
Access VBAから使用したExcelプロセスを閉じる方法について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBA
-
Excelで、あるセルの値に応じて...
-
Excel UserForm の表示位置
-
VBAを使って検索したセルをコピ...
-
特定の文字がある行以外を削除...
-
excelのデータで色つき行の抽出...
-
B列の最終行までA列をオート...
-
エクセルVBA 配列からセルに「...
-
Cellsのかっこの中はどっちが行...
-
VBAマクロ実行時エラーの修正に...
-
エクセルの合計を自動で表示さ...
-
マクロのコマンドボタン《Activ...
-
VBA シートをコピーする際に Co...
-
マクロの「SaveAs」でエラーが...
-
エクセルで離れた列を選択して...
-
EXCEL VBA 文中の書式ごと複写...
-
VBA 別ブックからの転記の高速...
-
【ExcelVBA】zip圧縮されたCSV...
-
エクセルVBAにて =A1=B1とすれ...
-
VBA 複数条件の分岐処理の上手...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA
-
Range("A1")⇔cells(1,1)の変換。
-
vba formulaの中での変数の扱い
-
AccessVBAから、Excelシート内...
-
VBA SUM関数に変数を入れた計算...
-
セルの値を足す
-
csv形式でも文字点滅可能でしょ...
-
エクセルで特定の文字列が入っ...
-
VBAマクロ実行時エラーの修正に...
-
マクロの「SaveAs」でエラーが...
-
VBA シートをコピーする際に Co...
-
エクセル マクロ オートフィ...
-
【Excel関数】UNIQUE関数で"0"...
-
エクセルで離れた列を選択して...
-
Worksheets メソッドは失敗しま...
-
VLOOKUPの列番号の最大は?
-
Excelで、あるセルの値に応じて...
-
B列の最終行までA列をオート...
-
「段」と「行」の違いがよくわ...
-
Excel VBAでのWorksheet_Change...
おすすめ情報