WebページのTableをExcelへ保存 削除
Message#1 2014年9月22日(月)12時36分 From: ともりん |
あるサイトの表部分をExcelへ保存する方法をネット検索で見つけました。 しかし、表の中に"08"の値がExcelへ保存すると前の0が消えます。 以下のコーディングに追加などで実現可能でしょうか? 後で、2桁へ変換できることはわかっておりますが、桁数が不明として考えたいです。 よろしくお願いします。 参照HTMファイルは、 http://www.tt.rim.or.jp/~ishato/tiri/code/kanto.htm からデスクトップへ「市町村コード・関東.htm」の名前で保存しました。 Sub sample1() With ActiveSheet.QueryTables.Add(Connection:= _ "URL;C:\Users\Hoge1\Desktop\市町村コード・関東.htm", _ Destination:=Range("$A$1")) .Name = "?kd=1&tm=d&vl=a&mk=1&p=1" .FieldNames = True .RowNumbers = False .FillAdjacentFormulas = False .PreserveFormatting = True .RefreshOnFileOpen = False .BackgroundQuery = True .RefreshStyle = xlInsertDeleteCells .SavePassword = False .SaveData = True .AdjustColumnWidth = True .RefreshPeriod = 0 .WebSelectionType = xlAllTables .WebFormatting = xlWebFormattingNone .WebPreFormattedTextToColumns = True .WebConsecutiveDelimitersAsOne = True .WebSingleBlockTextImport = False .WebDisableDateRecognition = False .WebDisableRedirections = False .Refresh BackgroundQuery:=False End With End Sub |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。