[[20160409181200]]　『bookを開かずにデータを貼付け』（sa）　ページの最後に飛ぶ

『bookを開かずにデータを貼付け』（sa）

開いているbookのsheets("情報").cells(2.1)の位置に、指定した"c:\一覧表\事務.xlsm"sheets("情報").range("a2:ty105")のデータを開かずにデータを貼り付けたいのですが、どのようなコードを記述すればいいでしょうか？

＜使用 Excel：unknown、使用 OS：unknown ＞

 >データを開かずにデータを貼り付けたいのですが
 不可能です。

　ですが、

  c:\一覧表\事務.xlsmのファイルを一度開いて、
　sheets("情報").range("a2:ty105")のデータを取得した後、
  c:\一覧表\事務.xlsmのファイルを閉じれば、
　最終的には、c:\一覧表\事務.xlsmは、開いた状態にはなっていません。
 そういう処理（ファイルを開いて、データを取得後、ファイルを閉じる）で、いいですか？

 また、range("a2:ty105")の「105」は固定ですか、
 それとも、変動で、どこかの列の最終行を調べることで、変動値を取得できますか？
（マリオ） 2016/04/09(土) 19:22

ありがとうございます。

結果的にファイルが閉じていれば大丈夫です。また、ty105でなく列の最終行でも大丈夫です。

宜しくお願いします。
（sa） 2016/04/09(土) 19:27

値だけですが

 Sub test()
    Dim f As String

    f = "'c:\一覧表\[事務.xlsm]情報'!a2"

    With Sheets("情報").Range("a2:ty105")
        .Formula = "=if(" & f & "="""",""""," & f & ")"
        .Value = .Value
    End With

 End Sub

（マナ） 2016/04/09(土) 20:21
（マナ） 2016/04/09(土) 20:34修正

マナ様　スゴイ！　出来ました。参照となるブックを開かずにできるのですね！

ありがとうございました。
（sa） 2016/04/09(土) 20:43

 マナ さん、sa さん

 失礼しました。m(_ _)mぺこり
 ワークシート関数に書き込めば、
 ファイルを開く処理をマクロでしなくてもいいのですね。
 はじめて知りました。勉強になりました。

（マリオ） 2016/04/10(日) 02:13

 To マリオさん

[[20151023213330]]?　『別Bookからのデータ転記について』（エイチ・アイ）

 ここで、ichinose さん、半平太　さんによる　膨大なサイズのブックを参照する方式の比較検証が行われました。
 とくに　外部参照数式埋め込み　の効率、ExecuteExcel4Macro 並みだと思いこんでいたのですが
 どうして、どうして、非常に効率がいいものだという認識を新たにしました。

 ご参考まで。

（β） 2016/04/11(月) 07:41

コメント返信：

[ 一覧(最新更新順) ]

[[20160409181200]] 『bookを開かずにデータを貼付け』（sa） ページの最後に飛ぶ

[[20160409181200]]　『bookを開かずにデータを貼付け』（sa）　ページの最後に飛ぶ