VBA初心者です。
お客さんによって、100程度あるシートの中から、特定のシートのみを抽出し、
お客さんの名前と有効期間をブック名として保存したいです。
以下のようなマクロを作成しました。
問題が2点あります。
➀指定しているワークシートが正しく出力されません、一枚のみ出ます。
⓶保存時の名前について
変数でbookNameを作成しているのですが、""でくくっているため、変数として認識されません。解決方法を具体的なコードで教えて頂きたいです。
以上、散文で申し訳ございません。
どうか、宜しくお願いします。
VBA
1Option Explicit 2 3Sub シート抽出() 4 5Dim clientName As String 6Dim period As String 7Dim bookName As String 8Dim val As Long 9Dim i As Integer 10Dim count As Long 11Dim copySheet As String 12Dim ary() As String 13 14clientName = Cells(13, 3).Value 15period = Cells(16, 3).Value 16count = Cells(19, 3) 17bookName = clientName & "_" & period 18val = 22 19i = 0 20 21ReDim ary(count - 1) 22 23For i = 0 To count - 1 24ary(i) = Cells(val, 3) 25val = val + 1 26Next 27 28Worksheets(ary(count - 1)).Copy Before:=Worksheets(2) 29 30ActiveWorkbook.SaveAs _ 31fileName:="C:\forClient\bookName", _ 32FileFormat:=xlOpenXMLWorkbook 33 34End Sub 35
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。