エクセルVBAでCSVファイル出力マクロを作成しています。
本を参考にして作成したのですが、日付のセルで
2007/7/22 8:29:45と記入させているのが
#2007-07-22 08:29:45#と言う形で出力
されてしまいます。
そのまま「2007/7/22 8:29:45」と出力させるには
どのようにしたらいいのでしょうか?
出力したデーターを基にアクセスに取り込んでデーター
ベースにしようと思っているのですが、「#」がある
ため、そのまま、時刻関数で取り込めないもので
困っています。
コードは以下のように書いてあります。
Sub WriteCsv()
Dim myTxtFile As String, myFNo As Integer
Dim myLastRow As Long, i As Long
Dim ShName As String
Application.ScreenUpdating = False
ShName = ActiveSheet.Name
myTxtFile = ActiveWorkbook.Path & "\" & ShName & ".csv"
myLastRow = Range("A1").CurrentRegion.Rows.Count
myFNo = FreeFile
Open myTxtFile For Output As #myFNo
For i = 1 To myLastRow
Write #myFNo, Cells(i, 1), Cells(i, 2), Cells(i, 3)
Next
Close #myFNo
MsgBox "このシートを元に「" & ShName & ".csv」を作成しました"
End Sub
宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
> Write #myFNo, Cells(i, 1), Cells(i, 2), Cells(i, 3)
タイムスタンプの列がどれだかわかりませんので、Cells(i, 1)と仮定して。
Cells(i, 1).Text とするか、
format(Cells(i, 1),"yyyy/m/d hh:mm:ss") としてみてください。
返答ありがとうございます~
説明で、日付セルの場所が説明不足ですみません。
1列で合ってます。
とてもたすかりました。
ありがとうございます~
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA初心者です。 2 2022/10/10 11:52
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Excel(エクセル) エクセルのVBAについて とあるサイトのコードを参考に、CSVの文字化けを直すVBAを作成しているの 7 2022/11/04 14:15
- Visual Basic(VBA) いつもお世話になっております、VBAで教えて頂きたいのですが 2 2022/05/05 22:20
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) VBA 請求書自動作成 3 2022/04/24 01:58
- Visual Basic(VBA) 複数のcsvファイルをExcelに一括変換したい 2 2023/03/03 12:44
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) 前回ご教授いただいたコードに覚えたてのループ処理で品名りんごAから順に20回for nextでループ 7 2023/01/13 22:01
- Excel(エクセル) VBA フォルダ見える化のコードについて 2 2023/06/19 15:04
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
プログラムについての質問です...
-
OBS配信すると、マイクが途切れ...
-
4Kの外部モニターに出力すると...
-
printfとputcharの違いは
-
MMDでavi出力が出来ない
-
コンセントの電力は入力と出力...
-
ACCESS クエリ→フォーム...
-
VBAのExecメソッドで画面を非表...
-
cout と cerrの違い
-
テキストファイルから特定の文...
-
Excel Slope関数 繰返し処理...
-
C# 標準出力のencodingをutf8に...
-
プログラミングの問題です。至...
-
無線とかアンテナに関しの質問...
-
VBAでSUMIF関数を繰り返す
-
【VBA】PDFを2in1で出力したいです
-
COBOLのMOVEで桁数が異なる場合
-
センサーのタンパー出力について
-
最近の画像生成AIについて。 長...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
PS4コントローラーをPCでゲーム...
-
4Kの外部モニターに出力すると...
-
コンセントの電力は入力と出力...
-
MMDでavi出力が出来ない
-
OBS配信すると、マイクが途切れ...
-
VBAでテキスト出力時のスペース...
-
cout と cerrの違い
-
COBOLのMOVEで桁数が異なる場合
-
ACCESS クエリ→フォーム...
-
アクセスでエクセルに出力する...
-
VBAのExecメソッドで画面を非表...
-
テキストファイルから特定の文...
-
Windows11対応の3入力1出力 USB...
-
VBAで有効数字の設定
-
スマホのバッテリー消費につい...
-
Excel VBAで値を変えながら、pd...
-
NTTのホームゲートウェイとOCN...
-
定格冷房能力(出力)とは 定格...
-
プログラムについての質問です...
-
PS5をMacBookProに出力したいの...
おすすめ情報