|
○○○フォルダの中のエクセルBook"A","B","C"の3つのBookに名前を定義した範囲("転記用テーブル")を定義し、Book"D"へデータを転記したいのですが、
転記元のデータ("転記用テーブル")がすべて計算式になっています。
その為、転記された結果も計算式が転記されます。
値に変換した結果を転記したい場合どのようにしたらよいか教えてください。
宜しくお願いします。
エクセルのバージョンは2003です。
現状下記にて設定しています。
Sub ()
Dim myFld As String, myName As String
Dim sakiRng As Range, motoRng As Range, myBook As Workbook
myFld = ThisWorkbook.Path & "\○○○" ←フォルダ
myName = Dir(myFld & "\*.xls")
Do While myName <> ""
Set sakiRng = Range("B65536").End(xlUp).Offset(1)
Set myBook = Workbooks.Open(Filename:=myFld & "\" & myName)
Set motoRng = myBook.Names("転記用テーブル").RefersToRange
Set motoRng = motoRng.Rows("2:" & motoRng.Rows.Count)
motoRng.Copy sakiRng
myBook.Clos
myName = Dir()
Loop
End Sub
|
|