VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト] [新規投稿] [新着記事] [ワード検索] [過去ログ] [管理用]

投稿日： 2003/10/21(Tue) 06:14
投稿者： 初心者
Ｅメール：
ＵＲＬ：
タイトル： 複数のファイル名を取得したいのですが

CommonDialogを使って複数のファイル名を取得したいのですが

ＥＸＣＥＬのＶＢＡで表現すると--------

Private Sub CommandButton1_Click()
    Dim aFile, i, D_Cell
    
        aFile = Application.GetOpenFilename _
            ("すべてのファイル (*.*),*.*", , , , True)

    Range("a4").Select
    
        If IsArray(aFile) Then
            For i = 1 To UBound(aFile)
                ActiveCell.Value = aFile(i)
                ActiveSheet.Cells(ActiveCell.Row + 1, ActiveCell.Column).Select
                                                
            Next i
        Else
                ActiveCell.Value = aFile(i)
        End If
End Sub

--------このようなことを
ＶＢ６でおこないたいのです。

宜しくお願いします。

- 関連一覧ツリー （★ をクリックするとツリー全体を一括表示します）
- 返信フォーム （この記事に返信する場合は下記フォームから投稿して下さい）

- Web Forum -