エクセルWEBクエリ 貼り付け時の自動変換

質問

WEBクエリにて、データをシートに張り付ける際、
データの1:1 1:2 3:2などのコロンが間にある文字列が、
ユーザー定義の時間として認識して貼り付けされてしまい困っております。（h:mm)
（例）
1:1 1:2 3:2 → 1:01 1:02 3:02

一通り、ヘルプやVBAのヘルプなどを見ましたが、わかりませんでした。
ハイフンで区切られているものは、WEBクエリ中のオプションで日付認識無効をチェックすることで、解決出来るようですが、コロン「:」の解決策は見当たりません。m(__)m

もしご存知の方がおられたら、ご教授のほどお願い申し上げます。
そのままの数字が認識できれば、どんな方法でも構いません。

下記は、参考にWEBクエリのマクロ記録そのままの状態です。

Sub Macro5()
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;http://www.○○○", Destination:=Range("$A$1") )
.Name = "1122"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebTables = "12"
.WebPreFormattedTextToColumns = True
.WebConsecutiveDelimitersAsOne = True
.WebSingleBlockTextImport = True
.WebDisableDateRecognition = True
.WebDisableRedirections = True
.Refresh BackgroundQuery:=False
End With
End Sub

回答No.1

noname#206655 · ベストアンサー

セルの書式が自動だと、セミコロンを時間の区切り子とするので、「文字」と指定して起きます。

その場合、マクロなど誤動作します。「文字」属性の場合、数字を扱う関数でエラーとなった記憶があります。

お礼

ありがとうございます。お礼が遅くなり申し訳ありません。

事前にシートの書式を文字列にしておくということでしょうか？
それが、だめでしたm(__)m

通常のWEBからコピーしてエクセルに貼り付けならば、書式設定でうまくいくのですが、WEBクエリを使用すると、ダメみたいです。

VBAの中に、貼り付け設定を編集できるコードがあればよいのですが、その辺が難しく、わからないですね。

もう少し頑張ってみます。