Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

40192 / 76807

←次へ　｜　前へ→


	【41716】Re:変数の取込かた

質問（煮詰まった） - 06/8/21(月) 11:22 -


	引用なし

	パスワード

以下のように修正しましたが、エラーが出ます。
実行時エラー438
ｗｂの記載方法でしょうか？

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("作業２").Select
Cells.Select
Selection.Delete Shift:=xlUp

'MsgBox wb
wb.Active
Range("A1").Select

1 hits

▼

【41713】変数の取込かた 質問（煮詰まった） 06/8/21(月) 9:51