admin menu ≫  image  writes  admin
スポンサーサイト 
--.--.--.-- 
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
エクセルを使ったプログラムランチャー擬き(2)  
2009.05.11.Mon 
なぁ?んか変な感じだったので、再度、以下のような修正を行いました(^^

Public IndexNo

Function File_Index%(CmdSheet, Row%, FileName$)
Sub Filter_Index(CmdSheet, Row%, FileName$)
Function File_Name$(CmdSheet, Row%)
'外部プログラムを登録したシート名と先頭の行番号の値を渡してダイアログボック
'スのフィルターを設定して開き、ダイアログボックスで選択したファイル名とイン
'デックスの値を返すをグローバル変数に代入してファイル名を返す。
Dim fd As FileDialog, FilterName, FilterExt, vrtSelItem, iRow%
Set fd = Application.FileDialog(msoFileDialogOpen)
With fd
.Title = "ファイルを開く"
.Filters.Clear
iRow = Row 'Rowは、再利用するのでiRowに代入する
Do
FilterName = CmdSheet.Cells(iRow, 3).Value
FilterExt = CmdSheet.Cells(iRow, 4).Value
iRow = iRow + 1
If CmdSheet.Cells(iRow, 2).Value = "" Then Exit Do
.Filters.Add FilterName, FilterExt
Loop
.Filters.Add "すべてのファイル", "*.*"
.FilterIndex = IndexNo
.AllowMultiSelect = False
If .Show = -1 Then
For Each vrtSelItem In .SelectedItems
File_Name = vrtSelItem
Next vrtSelItem
IndexNo = .FilterIndex
File_Index = IndexNo
Else
'ファイルの選択がキャンセルされた場合
File_Name = "False"
End If
End With
Set fd = Nothing
End Function
End Sub


関連記事
スポンサーサイト
* スポンサーサイトエクセルを使ったプログラムランチャー擬き(2) へのコメント *
   

台風画報


ナショジオニュース

降水短時間予報

RSSフィード

月別アーカイブ

ブログ内の検索

プロフィール


  • Designed by Il mio diario
  • Powered by FC2BLOG
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。