[ツリー表示へ] [ワード検索] [Home]
タイトル ： Re: "開く"処理について 投稿日 ： 2009/01/04(Sun) 23:23 投稿者 ： 花ちゃん
| > Private Sub hiraku_Click() > Dim FileName As String > Const ExcelFileName = "C:\Program Files\Internet Explorer\iexplore.exe" > > With CommonDialog1 > .DialogTitle = "読み込みテスト" > .Filter = "Chat_LOG(.html)|*.html" > .Flags = cdlOFNExplorer Or cdlOFNHideReadOnly Or cdlOFNLongNames Or cdlOFNNoChangeDir > .ShowOpen > > Open FileName For Output As #1 > Print #1, ab > Close #1 > End With > End Sub FileName はどこで取得しているのですか？ Open FileName For Output As #1 この時のFileName には何が入っていますか？ 今回のエラーとは関係ありませんが、ファイル番号の設定は、#1 のように決め打ちを しないで、 FreeFile 関数で取得するようにして下さい。 又、ファイルを扱う場合は、ファイルの有無を含めてエラーチェックをするようにして 下さい。 |
をクリックするとツリー全体を一括表示します） - "開く"処理について - 夜叉 09/01/04-21:59No.13334