[[20080409171741]]　『ＶＢＡを使った別ファイルからのコピー』（比良）　ページの最後に飛ぶ

『ＶＢＡを使った別ファイルからのコピー』（比良）
同一フォルダの中に，Ａ，Ｂ，Ｃのファイルがあります。これらのファイル名は固定です。
そして，そのフォルダの中に，「○○」というファイルをコピーします。このファイル名は変動します。
そして，ＶＢＡを使って，「○○」ファイルのシートを全選択して，コピーして，Ａファイルのシートに貼り付けたいのですが，どうするのでしょうか。

 Ａファイル→○○ファイル
 Ｂファイル→○○ファイル
 Ｃファイル→○○ファイル
 どれが正解でしょうか？

 Ａファイル→○○ファイル ならば Ａファイルにシートの貼り付けは不要ですよね？

 なさりたい事がよくわかりません...

 (1or8)

○○ファイルのシート１を全選択してコピーして，Ａファイルに取り込んで，Ａファイルのシート１に貼り付けたいのですが。

（比良）

 >Ａ，Ｂ，Ｃのファイルがあります
 >そのフォルダの中に，「○○」というファイルをコピーします
 Ａ，Ｂ，Ｃのどのブックを○○ブックとしてコピーするのですか？
 Ａブック→○○ブック ならば Ａブックにシートの貼り付けは不要ですよね？

 相変わらず、なさりたい事がよくわかりませんが、自動記録で目的のコードは得られませんか？

 (1or8)

 すみません，ややこしくて。
 同一フォルダ内にＡファイルがあって，そこへ新しく○○ファイルを保存します。
 ○○の方だけファイル名は変動します。
 ＶＢＡを使って，その○○ファイルのシート１を全選択してコピーして，Ａファイルに取り込んで，
 Ａファイルのシート１に貼り付けたいのですが。

 （比良）

 ①Ａブックのシート１のタブを右クリック
 ②移動またはコピーで新しいブックにコピー
 この手順で自動記録をしてみては？
 (1or8)

 少し分かってきました。
 Ａファイル→○○ファイルにコピーじゃなくて
 ○○ファイル→Ａファイルにコピーしたいんですけど。
 それで，○○は変動するんですけど，○○はどうやって特定すればいいんでしょうか。
 たぶん，「Ａ以外」という感じで特定すると思うのですが。

 （比良）

 このVBAはどのブックに書くのですか？

 Aファイルですか？　それとも全然別のブックですか？

 このプログラムを走らせるとき、A,B,C,○○ブックは閉じているのですか？

 <追記>
  > たぶん，「Ａ以外」という感じで特定すると思うのですが。

 「A以外」だと、B.xls　も　C.xls　も　○○.xlsと間違われますよ。
　 フォルダ内は、全部で「4」ファイルまでですよね？
　そうじゃないと、○○.xlsを特定できませんが。

 （半平太）

 Ａファイルに書いて，Ａファイルを開いた上，実行するのですが。
 簡単に説明するため，Ａと○○とで説明して，「Ａ以外」としましたが
 正確にはご指摘のとおり，「Ａ，Ｂ，Ｃ以外」というふうに特定したいのですが。

 （比良）

こんなのでどうですか？

 Sub CopyToFileA()

 Dim aa
 Dim fso As Object

 Set fso = CreateObject("Scripting.FileSystemObject")

 Application.ScreenUpdating = False

     For Each aa In fso.GetFolder(ThisWorkbook.Path & "\").Files

         If aa.Name <> ThisWorkbook.Name And aa.Name <> "B.xls" And aa.Name <> "C.xls" Then
              Workbooks.Open Filename:=ThisWorkbook.Path & "\" & aa.Name
              Workbooks(aa.Name).Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(1).Cells
              Workbooks(aa.Name).Close
              Exit For
         End If
     Next

 Application.ScreenUpdating = True

 Set fso = Nothing

 End Sub

 (半平太)

 みなさん，ありがとうございます。
 私の思っていたとおり，ぴったりです。
 それで，もう１つ問題がありまして。
 ○○ファイルの方にリンクがかかっていて，貼り付けるときに，「リンクの編集～」
 という表示が出てしまうんですけど。

 それで，○○ファイルのシート１を全選択してコピーしたときに，リンクを解除して
 それから貼り付けるというふうにしたいのですけど。
 どうなるのでしょうか。

 （比良）

 > ○○ファイルの方にリンクがかかっていて，貼り付けるときに，「リンクの編集～」
 > という表示が出てしまうんですけど。

 ちょっとよく分からないですが、下の2箇所の変更でワークしないでしょうか？

 Workbooks.Open Filename:=ThisWorkbook.Path & "\" & aa.Name, UpdateLinks:=2　'← 引数追加

 Workbooks(aa.Name).Close False　'← 引数追加

 (半平太)

 うまくいきませんでした。
 ○○ファイルのリンクを下記のような感じで，まずリンク解除して
 それから上記のようなコードでコピーして貼り付けすればうまくいくと思うのですが。
 それをどうやってつなげるのか分からないので教えてください。

 Sub ()

    ○○ファイルを検索

　 ActiveWorkbook.BreakLink Name:="○○.xls", Type:= _

        xlExcelLinks

 End Sub

 あともう少しなので，よろしくお願いします。

 こんなことですかね？
 注：UpdateLinks:=0 としています。
　「0」を入れるとどうなるかはヘルプに書いてありませんが、結果オーライの様なので使用しています。

 Sub CopyToFileA()
 Dim aa, bb, astrLinks
 Dim fso As Object

 Set fso = CreateObject("Scripting.FileSystemObject")

 Application.ScreenUpdating = False
     For Each aa In fso.GetFolder(ThisWorkbook.Path & "\").Files
         If aa.Name <> ThisWorkbook.Name And aa.Name <> "B.xls" And aa.Name <> "C.xls" Then
              Workbooks.Open Filename:=ThisWorkbook.Path & "\" & aa.Name, UpdateLinks:=0

              astrLinks = Workbooks(aa.Name).LinkSources(Type:=xlLinkTypeExcelLinks)

              If Not IsEmpty(astrLinks) Then
                 For Each bb In astrLinks
                     Workbooks(aa.Name).BreakLink Name:=bb, Type:=xlLinkTypeExcelLinks
                 Next
              End If

              Workbooks(aa.Name).Worksheets(1).Cells.Copy ThisWorkbook.Worksheets(1).Cells
              Workbooks(aa.Name).Close False
              Exit For
         End If
     Next
 Application.ScreenUpdating = True

 Set fso = Nothing
 End Sub

 (半平太)

 すごい，思ったとおりのができました。
 どうもありがとうございました。

 （比良）

 すみません，また教えてください。
 上のコードで
 If aa.Name <> ThisWorkbook.Name And aa.Name <> "B.xls" And aa.Name <> "C.xls" Then
 の部分。
 And aa.Name <> "B.xls" And aa.Name <> "C.xls" And aa.Name <> "D.xls" と３０個ほど並べたいので

 下に改行して

 And aa.Name <> "B.xls" 
 And aa.Name <> "C.xls"
 And aa.Name <> "D.xls"

 というふうに見やすいように並べてみたら，コンパイルエラーと出るのですが，
 これを直すことはできるのでしょうか。
 素人の質問でどうもすみません。

 （比良）

 こういうことでしょうか？
　
    If aa.Name <> ThisWorkbook.Name _
        And aa.Name <> "B.xls" _
        And aa.Name <> "C.xls" _
        And aa.Name <> "D.xls" Then
　
 （キリキ）（〃⌒o⌒)b

 分かりました。ありがとうございました。

 （比良）

コメント返信：

[ 一覧(最新更新順) ]

[[20080409171741]] 『ＶＢＡを使った別ファイルからのコピー』（比良） ページの最後に飛ぶ

[[20080409171741]]　『ＶＢＡを使った別ファイルからのコピー』（比良）　ページの最後に飛ぶ