QueryTables メモ

Sub Sample_QueryTables()

    '-------------------
    'Webデータを取得する
    '-------------------
    Dim ws As Worksheet
    Dim sUrl As String

    Set ws = ThisWorkbook.Worksheets(SHEET_INDEX)
    sUrl = GET_STRING_URL

   'QueryTableの作成　読み込むCSV(Web)パスと、取り込み先のシート、セルを指定
    With ws.QueryTables.Add(Connection:=sUrl, Destination:=Range("A1"))
'        .CommandType = 0
        .Name = "Emplist.asp?OrgCd=N52"         'どのWebクエリかを指定
        .FieldNames = True                      '列見出し表示(True/Falseどちらを設定しても、
                                                'CSVファイル読込では結果は変わらない
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True              'True の場合、先頭の 5 行のデータに共通する
                                                '書式をクエリTblの新しい行のデータに適用する。
                                                '未使用のセルは書式設定されません。
                                                'False の場合、クエリTableに最後に適用した
                                                'オートフォーマットがクエリTblの
                                                '新しい行のデータに適用される。

        .RefreshOnFileOpen = False              'ブックを開いたときにクエリを更新するか

        .BackgroundQuery = True                 'True = 更新をバックグラウンドで実行する 

        .RefreshStyle = xlInsertDeleteCells     '取得または指定したワークシートの行を
                                                '追加または削除して、クエリによって返される
                                                'recordset 内の行の数に対応するように設定。
                                                'xlInsertDeleteCells:1 新しいレコードセットに
                                                '必要な行数と正確に一致するように、一部の行を
                                                '挿入または削除する。
        .SavePassword = False
        .SaveData = True                        'False = ブックを保存する時、クエリのデータを
                                                '        保存しない 
        .AdjustColumnWidth = True
        .RefreshPeriod = 0                      'クエリの自動更新のプロパティ。
                                                '分単位(0 ～ 32767 の整数)

        .WebSelectionType = xlEntirePage        'WebPageの全てのTbl、又は特定のテーブルのみを
                                                'インポートするかを示す値を設定)
                                                '(既定値:xlAllTables(全てのTbl),
                                                ' xlEntirePage(全て), 
                                                ' xlSpecifiedTables (特定のテーブル)

        .WebFormatting = xlWebFormattingNone    'WebPageをQueryTblにｲﾝﾎﾟｰﾄする時に
                                                'どれだけの書式を適用するかを示す値を設定
                                                'xlWebFormattingAll(全ての書式), 
                                                'xlWebFormattingNone(書式なし)

        .WebPreFormattedTextToColumns = True    'HTMLタグ内に含まれるデータを列に変換するか
                                                'どうかを設定または返す

        .WebConsecutiveDelimitersAsOne = True   'webPage上の HTML <PRE>タグから
                                                'クエリTblにﾃﾞｰﾀをｲﾝﾎﾟｰﾄする時、
                                                '列に解析する場合は、
                                                'Treu = 連続した区切り文字が1つの
                                                '       区切り文字として扱われます。
                                                'False = 連続した区切り文字が
                                                '        複数の区切り文字として扱われます。
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False

        'QueryTablesオブジェクトを更新
        .Refresh BackgroundQuery:=False         'False:Refreshメソッドを実行する際に、
                                                'バックグラウンドで更新しない
        '名前でクエリを指定
        'ActiveSheet.QueryTables("SHEET_NAME").Refresh 'Commit的なやつ

    End With

End Sub

  '表Adressを取得
  Set tbl = ws.Range("A1").CurrentRegion
  Set tbl = tbl.Offset(1, 0).Resize(tbl.Rows.Count, tbl.Columns.Count)
  Debug.Print "表の範囲 : " & tbl.Address