Excel VBA質問箱 IV

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

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


6710 / 13644 ツリー ←次へ | 前へ→

【43537】文字列で指定することと変数で指定することの違い? ワタル 06/10/19(木) 0:46 質問[未読]
【43540】Re:文字列で指定することと変数で指定する... ichinose 06/10/19(木) 7:34 発言[未読]
【43604】Re:文字列で指定することと変数で指定する... ワタル 06/10/19(木) 23:34 お礼[未読]

【43537】文字列で指定することと変数で指定するこ...
質問  ワタル E-MAIL  - 06/10/19(木) 0:46 -

引用なし
パスワード
   111と222と同じことをしているつもりなのですが・・・
111の変数send_dateには222で指定しているURL;http://table.yahoo.co.jp/t?c=2006&a=10&b=17&f=2006&d=10&e=17&g=d&s=7717.t&y=0&z=7717.t
という文字列が入っていて(デバック確認済み)、cat_dateには222のt?c=2006&a=10&b=17&f=2006&d=10&e=17&g=d&s=7717.t&y=0&z=7717.tという文字列が入っています。(デバック確認済み)222ではデータを取得できるのですが、111では取得することが出来ません。
みずらくてすみません。「?」の後ろになぜか改行が入ってしまって綺麗にそろえたかったのですが、出来ませんでした。

※※※※※※※※※※※※※※※111※※※※※※※※※※※※※※※※※※
  With ActiveSheet.QueryTables.Add(Connection:=send_date _
    , Destination:=Cells(ActiveCell.Row + 1, 1))
    .name = cat_date

これ以降は111と222は全く同じです。
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

※※※※※※※※※※※※※※※222※※※※※※※※※※※※※※※※※※※
  With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://table.yahoo.co.jp/t?c=2006&a=10&b=17&f=2006&d=10&e=17&g=d&s=7717.t&y=0&z=7717.t" _
    , Destination:=Cells(ActiveCell.Row + 1, 1))
    .name= "t?c=2006&a=10&b=17&f=2006&d=10&e=17&g=d&s=7717.t&y=0&z=7717.t"
これ以降は111と222は全く同じです。
※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※

【43540】Re:文字列で指定することと変数で指定す...
発言  ichinose  - 06/10/19(木) 7:34 -

引用なし
パスワード
   ▼ワタル さん:
おはようございます。


これね、実際に変数にセットしているコードも掲載して
「ほら、222はうまくいくけど、111はうまくいかないでしょう?」
というコメントが記述できるようなふたつコードを掲載してください。


新規ブック標準モジュールに
'=========================================================
Sub Macro1()
  With ActiveSheet.QueryTables.Add(Connection:= _
    "URL;http://table.yahoo.co.jp/t?c=2006&a=10&b=17&f=2006&d=10&e=17&g=d&s=7717.t&y=0&z=7717.t" _
    , Destination:=Range("A1"))
    .Name = "t?c=2006&a=10&b=17&f=2006&d=10&e=17&g=d&s=7717.t&y=0&z=7717.t"
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
  End With
End Sub
'=====================================================================
Sub Macro2()
  Dim dest As String
  Dim nm As String
  
  dest = "URL;http://table.yahoo.co.jp/t?c=2006&a=10&b=17&f=2006&d=10&e=17&g=d&s=7717.t&y=0&z=7717.t"
  nm = "t?c=2006&a=10&b=17&f=2006&d=10&e=17&g=d&s=7717.t&y=0&z=7717.t"
  With ActiveSheet.QueryTables.Add(Connection:=dest, Destination:=Range("A1"))
    .Name = nm
    .FieldNames = True
    .RowNumbers = False
    .FillAdjacentFormulas = False
    .PreserveFormatting = True
    .RefreshOnFileOpen = False
    .BackgroundQuery = True
    .RefreshStyle = xlInsertDeleteCells
    .SavePassword = False
    .SaveData = True
    .AdjustColumnWidth = True
    .RefreshPeriod = 0
    .WebSelectionType = xlEntirePage
    .WebFormatting = xlWebFormattingNone
    .WebPreFormattedTextToColumns = True
    .WebConsecutiveDelimitersAsOne = True
    .WebSingleBlockTextImport = False
    .WebDisableDateRecognition = False
    .WebDisableRedirections = False
    .Refresh BackgroundQuery:=False
  End With
End Sub

上記はマクロの記録からの掲載ですが、
どちらも正常に作動していますよ!!

【43604】Re:文字列で指定することと変数で指定す...
お礼  ワタル E-MAIL  - 06/10/19(木) 23:34 -

引用なし
パスワード
   ichinose さん
こんばんは、
ありがとうございましす!
ご指摘の通りコードが不完全で解りにくかったことお許し下さい。
これからは気をつけて質問致します。

実はテストデータに謝りがありました。申し訳ありません。
ichinose さんの
「どちらも正常に作動していますよ!!」
という言葉にもしかして・・・と思ったらやはりそうでした。
ほんとうに申し訳ありません。
どうもありがとうございました!

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