|
以下のように修正しましたが、エラーが出ます。
実行時エラー438
wbの記載方法でしょうか?
Sub read_SATL()
Dim i As Integer ' FreeFile値
Dim j As Integer ' FreeFile値
Dim OpenFileName As Variant
Dim wb As Workbook
Application.ScreenUpdating = False
'●ファイルオープン処理
OpenFileName = Application.GetOpenFilename("xlsファイル,*.xls" _
, , "ファイルを選択してください")
'●キャンセルボタンが押された場合
If OpenFileName = False Then
MsgBox "処理がキャンセルされました"
Exit Sub
Else
' MsgBox "ファイル名 : " & Dir(OpenFileName)
Workbooks.Open Filename:=OpenFileName
Set wb = Workbooks.Open(Filename:=OpenFileName)
End If
'●シートのクリアー
Windows("受注変換.xls").Activate
Sheets("作業").Select
Cells.Select
Selection.Delete Shift:=xlUp
Sheets("作業2").Select
Cells.Select
Selection.Delete Shift:=xlUp
'MsgBox wb
wb.Active
Range("A1").Select
|
|