|
はじめましてオキシドールといいます。
マクロ実行時のに日付データが化ける問題で困っています。
任意の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
|
|