|
>A列の最終行で判定していい
のですか?
修正を最低限にするのなら↓な感じでしょうか。。。
Private Sub CommandButton1_Click()
Dim FileName As String
Dim WB As Workbook
Dim MYPATH As String
Dim r As Long
Worksheets("ユーザー管理表").Range("A4:AB65536").Clear
MYPATH = "\\gggg\ggg\出荷一覧\一覧表\"
strFileName = MYPATH & strFileName & "注文一覧表" & ".xls" 'これでいいのかわかりません
If Dir(strFileName) <> "" Then
Set WB = Workbooks.Open(strFileName)
With WB.ActiveSheet
r = .Range("a65536").End(xlUp).Row
.Range("A4:G" & r & ",K4:AE" & r).Copy _
ThisWorkbook.Worksheets("ユーザー一覧表").Range("A4")
End With
WB .Close
Set WB = Nothing
Unload UserForm1
Else
MsgBox strFileName & "がありません"
End If
End Sub
|
|