Excel VBA質問箱 IV

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

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


40123 / 76738 ←次へ | 前へ→

【41716】Re:変数の取込かた
質問  質問(煮詰まった)  - 06/8/21(月) 11:22 -

引用なし
パスワード
   以下のように修正しましたが、エラーが出ます。
実行時エラー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

0 hits

【41713】変数の取込かた 質問(煮詰まった) 06/8/21(月) 9:51 質問
【41714】Re:変数の取込かた Blue 06/8/21(月) 10:01 発言
【41716】Re:変数の取込かた 質問(煮詰まった) 06/8/21(月) 11:22 質問
【41717】Re:変数の取込かた Blue 06/8/21(月) 12:06 回答
【41718】Re:変数の取込かた 質問(煮詰まった) 06/8/21(月) 13:17 お礼
【41715】Re:変数の取込かた Jaka 06/8/21(月) 10:34 発言

40123 / 76738 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free