人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

質問です
別添マクロを参考にtxtに保存するときにjun1970とjun1996がうまくできません
うまくできるマクロはありますか

c:\test\のホルダーに複数のCSVファイルがあります
その中のデータのA列2行目から下記データがあります
CSVデータ
jun1970
jun1996
09055556666

結果TXTデータ
1970/06/01
1996/06/01
09055556666
以上の場合
jun1970
jun1996
がうまくできません何かマクロの変更でできますか?
参考マクロは別添にあります
よろしくお願いします

1364196380
●拡大する

●質問者: inosisi
●カテゴリ:コンピュータ
○ 状態 :終了
└ 回答数 : 1/1件

▽最新の回答へ

1 ● lang_and_engine
●100ポイント

http://officetanaka.net/excel/vba/tips/tips115.htm

もし,CSVとTXTで日付の書式が変わってしまう,という点について悩んでおられるのであれば,
セルの表示内容をそのままTXTに反映するように書き換えるのはどうでしょうか。

CellsのValueを取得している箇所を,
CellsのTextプロパティを取得するように変更すればよいのでは。


inosisiさんのコメント
CellsのValueを取得している箇所を, CellsのTextプロパティを取得するように変更すればよいのでは。 は具体的に修正するのはいかようにすればよいのでしょうか? 初心者なのでわからなくて申し訳ございません For gg = ff To 2 Step -1 '2,3,4,5,6,7,8,9,10,12 のみとする If Not ((Int(Trim(.Cells(gg, "F"))) >= 2 And Int(Trim(.Cells(gg, "F"))) <= 10) Or Int(Trim(.Cells(gg, "F"))) = 12) Then .Rows(gg).Delete Shift:=xlUp End If よろしくお願いします

inosisiさんのコメント
With Range("A2") MsgBox "Text--> " & .Text End With を上のマクロの下に入れる感じでしょうか

きゃづみぃさんのコメント
jun1970 が Jun-70に変わってしまうので、貼りつけたあとは ダメですね。

inosisiさんのコメント
マクロをもっと勉強します
関連質問

●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ