エクセル(Excel)&ワード(Word)質問掲示板

より見やすく使いやすいエクセル掲示板を目指し、新たにエクセルの質問掲示板を開設いたしました。 これに伴い、当サイトでは今後、新規投稿はできなくなります。(閲覧は当面可能です。)
今後は新掲示板をご利用いただきますよう宜しくお願い致します。今後ともよろしくお願い致します。
○新掲示板
エクセル(Excel)解決掲示板

エクセル・ワードの基本操作に関する質問や関数やマクロの使い方などエクセルとワードに関する質問掲示板。
Welcome Guest 
メインメニュー
ログイン
ユーザー名:

パスワード:


パスワード紛失

WEB_DAY

このトピックの投稿一覧へ

なし WEB_DAY

msg# 1
depth:
0
前の投稿 - 次の投稿 | 親投稿 - 子投稿なし | 投稿日時 2010-3-6 18:54
ゲスト    投稿数: 0
Sub TEST()

'☆変数宣言開始--------------------------------------------------------------------------------------

Dim TEST As Long
Dim HpUrl, XmlText As String

Dim SOURCE_FOLDER As String
Dim SOURCE_FILE As String
Dim SOURCE_FILENAME As String

'オブジェクト変数宣言
Dim FSO As Object
Dim HP As Object

'☆変数宣言終了--------------------------------------------------------------------------------------

'☆変数設定開始--------------------------------------------------------------------------------------

'日付変数設定
YYYY = CStr(Format(Date, "yyyy"))
MM = CStr(Format(Date, "m"))
dd = CStr(Format(Date, "dd"))
TODAY_DATE = YYYY & "/" & MM & "/" & dd

'フォルダ変数設定
SOURCE_FOLDER = "D:\WEB\LOG"

'ファイル変数設定
SOURCE_FILE = "WEB_SOURCE_CODE.TXT"
SOURCE_FILENAME = SOURCE_FOLDER & "\" & SOURCE_FILE

'関数設定
FREE_NUMBER = FreeFile

'オブジェクト変数設定
Set FSO = CreateObject("Scripting.FileSystemObject")
Set HP = CreateObject("MSXML2.XMLHTTP")

'☆変数設定終了--------------------------------------------------------------------------------------

'☆処理開始--------------------------------------------------------------------------------------

'初期化処理
If FSO.FILEEXISTS(SOURCE_FILENAME) Then
Kill SOURCE_FILENAME
Else
End If
HpUrl = Cells(1, 1).Text
If HpUrl = "" Then Exit Sub

'ソースコード取込処理
HP.Open "GET", HpUrl, False
HP.Send
XmlText = HP.ResponseText
Open SOURCE_FILENAME For Append As #FREE_NUMBER
Print #FREE_NUMBER, XmlText
Close #FREE_NUMBER

'ソースコード部分抽出処理
TEST = InStr(XmlText, "AAA")
Cells(20, 1) = Mid(XmlText, TEST + 16, 6)

Set HP = Nothing

End Sub
投票数:54 平均点:5.37
返信する

この投稿に返信する

題名
ゲスト名   :
投稿本文

投稿ツリー

  条件検索へ


スポンサーリンク
スポンサーリンク
エクセル・ワード質問/回答集 - クイズ・問題QUUS! - 無料英語学習 - 投資家・トレーダー掲示版
為替(FX)テクニカル分析入門 - エクセル(EXCEL)学習・入門 - Word(ワード)の使い方/活用・入門
Copy right(c) 2006-2010 エクセル&ワード質問掲示板 all right reserved