|
こんにちは。かみちゃん です。
>実は以前に
>【49697】Re:webページ取得において
>でお世話になっておるのですがコードの意味もわからず使用させてもらっているのですが、
>
>Set FR = Columns("A").Find("日付", , , xlWhole)
> If Not FR Is Nothing Then
> Range("A2", FR.Offset(-1)).EntireRow.Delete xlShiftUp
>
>の部分だと思うのですがこれだけでなぜ
>日付から賞金までのデータが下部へ表示されるのかちんぷんかんぷんです。
以前サンプルファイルをメールで送ってはあるのですが、
そのことをおっしゃっているのかなぁとは思っていました。
>取得した 通過 のところが5-5-5だと2005/5/5となるのです。
>それを最初から5-5-5と取得出来ないのでしょうか。
以前提示させていただいたコードのうち、以下の★の行を追加してみてください。
With ActiveSheet.QueryTables.Add(Connection:= _
"URL;" & strURL, Destination:=Range("A1"))
'****は、httpを半角にしてください。
.Name = Replace(strURL, "****://", "")
.AdjustColumnWidth = False
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebDisableDateRecognition = True '★
.Refresh BackgroundQuery:=False
End With
これの意味は、Webクエリを手作業でするときに、
「新しいWebクエリ」の「オプション」で、「日付認識を無効に
する」にチェックを入れることで回避するということです。
http://support.microsoft.com/kb/287027/ja
(先頭4文字は、全角になっていますので、半角にしてください。)
|
|