Excel VBA質問箱 IV

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

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


26906 / 76732 ←次へ | 前へ→

【55152】Re:ファイルの操作について
発言  わいわい  - 08/4/17(木) 12:19 -

引用なし
パスワード
   横から失礼します。昨日胃カメラで異常が無かったわいわいです。(苦しかったぁ)

Option Explicit '私は付ける癖をつけてます
Sub 自信なし()

Dim WWWOpenFile As Variant
Dim Wkbook   As Workbook
Dim WulOpenFile As Workbook '←こうなのか?

Set Wkbook = ThisWorkbook  ’これであってますか?
WWWOpenFile = Application.GetOpenFilename("CSVファイル(*.csv),*.csv" _
     , FilterIndex:=1, Title:="開く")
    
  'ファイルを開く
  If WWWOpenFile <> False Then
    Set WulOpenFile = Workbooks.Open(Filename:=WWWOpenFile) '←これですよね?
    Cells.Copy
    Wkbook.Worksheets("リスト").Range("A1").PasteSpecial
    Application.DisplayAlerts = False
    WulOpenFile.Close
    Application.DisplayAlerts = True
  End If

End Sub

質問の意図が、WulOpenFileを使いたい と思ったので使ってみました。

0 hits

【55147】ファイルの操作について ヤス次郎 08/4/16(水) 17:39 質問
【55151】Re:ファイルの操作について かみちゃん 08/4/16(水) 22:05 発言
【55152】Re:ファイルの操作について わいわい 08/4/17(木) 12:19 発言
【55165】Re:ファイルの操作について ヤス次郎 08/4/17(木) 17:12 お礼

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