|
下記のコードでファイルを開くとユーザーフォームに走るファイルがあります。
そのファイルを開き、別ファイルへオートフィルターで抽出した後、コピー・貼り付けのマクロを組みたいのですが、参照元のファイルを開くと、下記のコードがvisualBasicのウィンドウ上に出てきてしまいます。
UserFoam1をアンロード(?)させるにはどうすればよいでしょうか?
参照元のコード
Private Sub Workbook_Open()
UserForm1.Show 0
End Sub
コピー先のコード
Sub syuukei()
Dim FileName As String
Dim MYPATH As String
Dim r1 As Long
Dim r2 As Long
Dim WB As Workbook
r1 = Worksheets("sheet1").Range("G65536").End(xlUp).Row
Worksheets("sheet1").Range("G4:G" & r1).ClearContents
MYPATH = "\\SSSSS\sssss\出荷管理\管理表\"
strFileName = MYPATH & "製品管理表" & ".xls"
If Dir(strFileName) <> "" Then
Set WB = Workbooks.Open(strFileName) '←ステップインしていくとここでウィンドウが切り替わってしまいます。
分かり難い説明ですみません。
ご教授宜しくお願い致します。
|
|