Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

26893 / 76732

←次へ　｜　前へ→


	【55165】Re:ファイルの操作について

ヤス次郎 - 08/4/17(木) 17:12 -


	引用なし

	パスワード

▼わいわいさん：
>横から失礼します。昨日胃カメラで異常が無かったわいわいです。（苦しかったぁ）
>
>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