EXCEL2000 区切り位置指定ウィザードについて
いつもお世話になっております。
以下のようなデータをWebサイトからコピーします。ここでは1行分のデータのみ示していますが、通常は100行以上のデータを扱います。
08/08/28 09:00 94.38 94.54 94.38 94.49
日付、時間、データ1,2,3,4です。
各データはスペースで区切られています。
このデータをシートのあるセルに貼り付けると、一つのセルに上記のデータがすべて入力されます。
それぞれを分割したいので、区切り位置指定ウィザードで区切ります。
すると、それぞれのデータが6列に分割されます。
分割後、先頭の日付は2008/8/28と表示されます。
上記の操作を下記VBAコードで自動でやらせると日付が2028/8/8になってしまいます。
Worksheets("test").Range("H:H").TextToColumns Destination:=Range("H1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1))
質問1.なぜVBAでやると日付がおかしくなるのでしょうか。
この問題を解決するために元のデータを貼り付けた後にデータの先頭に20を付けて2008/08/28にしたいのですが、一度区切り位置指定ウィザードを使うと次回から貼り付けたデータは前回の設定で自動で区切られてしまい、データの先頭に20を付けたら日付が202028/8/8となってしまいます。
質問2.区切り位置指定ウィザードの設定をVBAでリセットすることはできないでしょうか。
うまく説明できませんが、本当に困っています。
よろしくお願い致します。
お礼
やっぱりデーター的に無理がありますよね。。 地道にやってみます。 回答ありがとうございました。