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