| |
▼ichinose さん：
ponponです。こんばんは。
またまた、横から失礼します。
>おはようございます。
>
>参照セル範囲が少ないとリンクが処理速度が速かったので。
>
>以下のコードを含むブックと参照するブック（01.xls〜10.xls）は、同じフォルダにあると言う仮定です。
>尚、出力は、アクティブシートに対して行っています。
>
>'=======================================================
>Sub test()
> Dim cnt As Long
> Dim r_add1 As String
> Dim sht As String
> cnt = 10 '←ここを100にすれば、01.xls〜100.xlsまで処理します
> Range("a1:b1").Value = Array("file", "H180")
>' ↑H180を変更すれば（例.V200）
>' 指定セルを参照します
> r_add = Range(Range("b1").Value).Address
> For idx = 2 To cnt + 1
> With Cells(idx, 1)
> .Value = idx - 1
> .NumberFormat = "00"
↑
書式を「文字列」にするまでは気がついたのですが、
「00」にすればbook名が10を超えても大丈夫ですね。
> sht = .Text
> With .Offset(0, 1)
> .Formula = "='" & ThisWorkbook.Path & _
> "\[" & sht & ".xls]" & sht & _
> "'!" & r_add
↑
これだとリンク貼り付けになりますよね。
はじめは、これも考えたのですが・・・
リンク貼り付けは、bookを開かなくても大丈夫なのでしょうか？
txtファイルは、直接開かないで、内部で開いて、データの追加や
削除ができるようですが、bookの場合はどうなのでしょうか？
セルの値を取得するには、bookを開かないとだめですよね？
bookでも大丈夫なのかな(^^;
> '.Value = .Value
↑
こいつがまたわからない。あちこちの掲示板で見るのですが
「なんじゃこら」って感じです。どんな意味があるのでしょうか？
いつもすみません。よろしくお願いします。
> End With
> End With
> Next
>End Sub
>
>確認してみて下さい。
|
|
ponpon
- 05/3/1(火) 22:35 -
