2ちゃんねる ★スマホ版★ ■掲示板に戻る■ 全部 1- 最新50  

■ このスレッドは過去ログ倉庫に格納されています

Excel総合相談所 97

644 :名無しさん@そうだ選挙にいこう:2011/07/14(木) 17:25:09.55
range クラスの select メソッドが失敗しました。
と出て、以下の最終行のところでエラーが出てしまいます。
エラーの名前で出てきてぐぐった対策方法は試してみたつもりですが・・・

Public OpenFileName As String
Private Sub CommandButton1_Click()
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls")
Workbooks.Open OpenFileName
RunYN = MsgBox(OpenFileName & "を開きます。並び替えを実行しますか?", vbYesNo)
Select Case RunYN
Case vbYes
Call Run
Case vbNo
myMsg = "キャンセルしました"
Case Else
myMsg = "キャンセルしました"
End Select
' Narabikae Macro
'End Sub

Sub Run()
Dim myMsg As String
Dim Fname As String
Fname = Dir(OpenFileName)
Windows(Fname).Activate
Worksheets("Sheet1").Select
Columns("J:J").Select


345 KB
★スマホ版★ 掲示板に戻る 全部 前100 次100 最新50

read.cgi ver 05.02.02 2014/06/23 Mango Mangüé ★
FOX ★ DSO(Dynamic Shared Object)