Excel VBA質問箱 IV

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

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


30796 / 76734 ←次へ | 前へ→

【51200】Re:5-5-5と入力すると2005/5/5と表示されてしまう
発言  かみちゃん E-MAIL  - 07/9/2(日) 23:09 -

引用なし
パスワード
   こんにちは。かみちゃん です。

>実は以前に
>【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文字は、全角になっていますので、半角にしてください。)
6 hits

【51194】題名が思いつきません。 おやじvba若葉マーク 07/9/2(日) 21:41 質問
【51195】Re:5-5-5と入力すると2005/5/5と表示されて... かみちゃん 07/9/2(日) 21:49 発言
【51199】Re:5-5-5と入力すると2005/5/5と表示されて... おやじvba若葉マーク 07/9/2(日) 22:38 質問
【51200】Re:5-5-5と入力すると2005/5/5と表示されて... かみちゃん 07/9/2(日) 23:09 発言
【51196】Re:題名が思いつきません。 maka 07/9/2(日) 21:52 発言
【51198】Re:題名が思いつきません。 おやじvba若葉マーク 07/9/2(日) 22:08 お礼

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