Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4690 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 お礼[未読]
【55147】ファイルの操作について
質問  ヤス次郎  - 08/4/16(水) 17:39 -
引用なし
パスワード
   あまり慣れていないVBAでマクロを作成中です。
ファイル操作がうまくいかないので質問します。
開いているWorkbook(A)にフォルダより別ファイル(B)を選択して、
開いているファイルのシートに貼り付けをする。
そのあと別ファイル(B)を閉じる。
この操作をマクロで組み込みたいのですが
よい方法はありますでしょうか。

WWWOpenFile = Application.GetOpenFilename("CSVファイル(*.csv),*.csv" _
　　　　 , FilterIndex:=1, Title:="開く")　　　　　　　　　　　　　　　　 'ファイルを開く

　　　　If WWWOpenFile <> False Then
　　　　　　Workbooks.Open Filename:=WulOpenFile
　　　　　　Cells.Select
　　　　　　Selection.Copy
　　　　　　Wkbook.Activate
　　　　　　Worksheets("リスト").Select
　　　　　　Range("A1").Select
　　　　　　ActiveSheet.Paste
【55151】Re:ファイルの操作について
発言  かみちゃん  - 08/4/16(水) 22:05 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>この操作をマクロで組み込みたい

途中まで、コードを作成されているご様子ですが、もう一度、「マクロの記録」
で記録して、それを修正するようにしてはいかがでしょうか？
GetOpenFilenameも使いたいようですが、修正方法がわからなければ、「マクロ
の記録」で記録したコードを提示してみましょう。
【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を使いたい　と思ったので使ってみました。
【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を使いたい　と思ったので使ってみました。

マクロが中がグダグダですいませんでした。
うまくいきそうです
ありがとうございます
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
4690 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free