Sub ImportPDFandRemoveQuery()
Dim wb As Workbook
Dim ws As Worksheet
Dim queryName As String
Dim pdfPath As String
Dim mCode As String
Dim fd As FileDialog
Set wb = ThisWorkbook
Set ws = wb.Sheets("Sheet1")
自分用メモ2
はい、ブック内の全てのシートのA30にあるセルの数値の大きい順にシートを並べるためのVBAコードを以下に示します。このコードは、シートの名前とA30セルの値をリストに格納し、そのリストを値の大きい順にソートしてシートの順序を変更します。
```vba
Sub SortSheetsByA30()
Dim ws As Worksheet
Dim sheetList As New Collection
Dim i As Long, j As Long
自分用メモ
はい、エクセルのVBAを使って各シートを指定した枚数で印刷することができます。以下は、そのためのサンプルコードです。
```vba
Sub PrintSheets()
Dim ws As Worksheet
Dim copies As Integer
' 各シートをループ
For Each ws In ThisWorkbook.Worksheets
' シート名に応じて印刷枚数を指定
Select Case