|
こんちわ、VBA初心者です、宜しくお願いします。
フォルダ内に置いた”指定セル値参照xls”を使って、他の複数ファイルの 特定する" 表紙 "シート にあるA1セルの値を(但し" 表紙 "シートがないファイルもありその時は空白セルのままで進めたいのです,
この”指定セル値参照xls”にある入力シートのA1セルから順にA2、3・・・と入力したいのですが上手くいきません)。
他のファイルを開いたときにアクティブに出来ないみたいで、エラーになります。
昨日からず〜〜と やってますが どうしても上手くいきません、どなたか ご指導願います、宜しくお願いします。
Sub test()
'
'フォルダ内指定シートの指定セル値のコピー、入力シートに貼付
myAD = ThisWorkbook.Path & "\"
Filename = Dir(myAD & "*.xls")
Do Until Filename = ""
If Filename <> "指定セル値参照.xls" Then
Set aBN = Workbooks.Open(myAD & Filename)
Application.ScreenUpdating = False
For Each ws In Worksheets
If ws.Name = " 表紙 " Then
If Worksheets.Count > 1 Then
Sheets(" 表紙 ").Select
Sheets(" 表紙 ").Activate
SelectedSheets.Range("A1").Copy
End If
End If
Next
Windows("指定セル値参照.xls").Activate
ActiveWorkbook.Worksheets("入力シート").Select
Dim i As Long
With ActiveCell
For i = .Row + 1 To Rows.Count
If Not Rows(i).Hidden Then
Cells(i, .Column).Select
Exit For
End If
Next
End With
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
aBN.Save
aBN.Close
End If
Filename = Dir()
Loop
Application.ScreenUpdating = False
End Sub
|
|