Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29029 / 76807

←次へ　｜　前へ→


	【53068】Re:エクセルのVBAでフリーズ状態になっちゃう！

くたくた - 07/12/13(木) 17:49 -


	引用なし

	パスワード

＊回答頂き、有難うございます。
　Webクエリでのデータ取得です。よろしくご指導願います。

1.下記を試してみました。 → 結果は、「15171」と表示されました。
　Sub test()
　　 Sheets("dMA10").Select　　　'←　当該ブックの10シート目の選択です。
　　 MsgBox ThisWorkbook.Names.Count　 '　←　「15171」と表示されましたが、
　　　　　　　　　　　　　　　　　　　　何を意味しているのか分かりません。
　End Sub

2.価格データを取得するマクロです。
　Sub Get_Data()
　　　With ActiveSheet.QueryTables.Add(Connection:= _
　　　　url, Destination:=Cells(lastrow, 2))
　　　　.Name = "Yahoo"
　　　　.FieldNames = False
　　　　.RowNumbers = False
　　　　.FillAdjacentFormulas = False
　　　　.PreserveFormatting = True
　　　　.RefreshOnFileOpen = False
　　　　.BackgroundQuery = True
　　　　.RefreshStyle = xlInsertDeleteCells
　　　　.SavePassword = False
　　　　.SaveData = True
　　　　.AdjustColumnWidth = False
　　　　.RefreshPeriod = 0
　　　　.WebSelectionType = xlSpecifiedTables
　　　　.WebFormatting = xlWebFormattingNone
　　　　.WebTables = wtbl
　　　　.WebPreFormattedTextToColumns = True
　　　　.WebConsecutiveDelimitersAsOne = True
　　　　.WebSingleBlockTextImport = False
　　　　.WebDisableDateRecognition = False
　　　　.Refresh BackgroundQuery:=False　　'←この行で止まってしまいます。
　　End With
　End Sub

3.VBAの初心者なので、下記については追って勉強してみます。
>それに、IEオブジェクトを使う方法への変更も検討されてみてはどうでしょう。
>://www.ken3.org/vba/backno/vba164.html

67 hits

▼

【53033】エクセルのVBAでフリーズ状態になっちゃう！ くたくた 07/12/12(水) 17:24