This macro will list all sheets in a workbook.Sub ListSheets() Dim ws As Worksheet Dim x As Integer x = 1 ActiveSheet.Range("A:A").Clear For Each ws In Worksheets ActiveSheet.Cells(x, 1) = ws.Name x = x + 1 Next ws End Sub...
ず最低限として、Workbook、Worksheet、Range、この3つだけは覚えておいてください。 Variantバリアント型) > Object(総称オブジェクト型) > 固有オブジェクト型 Variant、何でも入る Object、オブジェクトなら何でも入る 個別のジェクト型は、そのオブジェクトのみ Setステトメント ...
Recordset Dim wb As Workbook Set wb = Workbooks.Open(ThisWorkbook.Path & "\" & "TestTable.xlsx") 'ADO接続 cn.Provider = "Microsoft.ACE.OLEDB.12.0" cn.Properties("Extended Properties") = "Excel 12.0" cn.Open ThisWorkbook.Path & "\" & "TestTable.xlsx" 'SQL文の実行 rs.Open "SELECT ...