VBA HTML

Sub PivotTableを更新する()
Dim mySheet As Worksheet
Dim pvt As PivotTable

'全シート
For Each mySheet In Worksheets

'
For Each pvt In mySheet.PivotTables
pvt.PivotCache.Refresh
Next


Next mySheet


End Sub

’テーブルクリア例
Range("A2:L2").ClearContents
Range("A3:M" & Range("A3").End(xlDown).Row).Delete


’Resize例
Do
i = i + 1

If InStr(Sh1.Cells(i, 10), "株式会社") > 0 Then
x = x + 1
Sh2.Cells(x, 1).Resize(1, 12).Value = _
Sh1.Cells(i, 1).Resize(1, 12).Value

End If

Loop Until Sheet1.Cells(i, 1) = ""

’ファイルを選択例
Dim OpenFilePath As String
OpenFilePath = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")

’セルのセレクト例
Cells(Rows.Count, "A").End(xlUp).Offset(10, 0).Select