Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


16932 / 76732 ←次へ | 前へ→

【65262】VBA実行時の日付データ化けについて
質問  オキシドール  - 10/5/2(日) 16:26 -

引用なし
パスワード
   はじめましてオキシドールといいます。
マクロ実行時のに日付データが化ける問題で困っています。
任意のCSV形式のシート内セルを全てコピーしマクロ実行bookに貼り付けをするものです。作業はマクロ記録と織り交ぜて実施しています。

実行後A45に入力されいてる日付データが下記のようになります。
CSV元データ 2010/4/20 14:34:01 (表示形式 ユーザ定義にてyyyy/m/d h:mm)
実行後    2020/10/4 14:34:01 (表示形式 ユーザ定義にてyyyy/m/d h:mm)

CSV元データ,マクロ実行book貼り付け結果共にA45以下に入力されているデータが化けてしまいます。他のB〜AIのデータは化けてないようです。
マクロ作成以前の手動でコピー時は問題はありませんでした。

解決方法のご教授をお願いいたします。

作業環境およびコードは下記の通りです。
Excel2003SP3、WIN7(64bit)

Sub Macro4()
'変数 DPデータ,自ブックを宣言
Dim DPデータ As String, 自ブック As String
'自ブックへ現在のファイル名を格納
Set WBK = ThisWorkbook
自ブック = WBK.Name
'ファイルを指定して開く
For Each WBK In Workbooks '←自ブック以外を対象
  DPデータ = Application.GetOpenFilename("Microsoft Excelブック,*.csv")
      If DPデータ <> "False" Then
        Workbooks.Open DPデータ
      End If
    Cells.Select
    Selection.Copy
Next WBK
'自ブックをアクティブにしてDPデータからデータを貼り付け
  ThisWorkbook.Activate
  Cells.Select
  ActiveSheet.Paste
End Sub

0 hits

【65262】VBA実行時の日付データ化けについて オキシドール 10/5/2(日) 16:26 質問
【65263】Re:VBA実行時の日付データ化けについて りん 10/5/2(日) 18:01 発言
【65265】Re:VBA実行時の日付データ化けについて オキシドール 10/5/2(日) 19:49 お礼
【65264】Re:VBA実行時の日付データ化けについて よろずや 10/5/2(日) 18:55 発言
【65266】Re:VBA実行時の日付データ化けについて オキシドール 10/5/2(日) 19:58 お礼
【65267】Re:VBA実行時の日付データ化けについて kanabun 10/5/2(日) 20:15 発言
【65268】Re:VBA実行時の日付データ化けについて オキシドール 10/5/2(日) 20:25 お礼

16932 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free