macでとあるフォルダの中にあるexcelファイルを順々に開いて、内容をコピーして別のワークブックに貼り付ける
という処理をしたいのですが方法がわかりません。
windowsならば
folder = Dir("xxxxxx/*.xlsx")
do while folder <> ""
.
.
.
のようにしているのですが、macではDir関数が使用できないようなので困っています。
一応
http://chiroleen.hateblo.jp/entry/20130222/1361537144
の処理を少し変えて
Dim folder As String
Dim scriptToRun As String
folder = "xxxx"
scriptToRun = ""
scriptToRun = "set aFol to " & Chr(34) & folder & Chr(34) & Chr(13)
scriptToRun = scriptToRun & "tell application " & Chr(34) & "Finder" & Chr(34) & Chr(13)
scriptToRun = scriptToRun & "tell folder aFol" & Chr(13)
scriptToRun = scriptToRun & "set indList to a reference to (every file whose name extension is " & Chr(34) & "xlsx" & Chr(34) & ") " & Chr(13)
scriptToRun = scriptToRun & "end tell " & Chr(13)
scriptToRun = scriptToRun & "set numList to name of indList " & Chr(13)
scriptToRun = scriptToRun & "end tell " & Chr(13)
とするとnumListに取得したいフォルダの中のエクセルファイルがすべて入るように思えるのですが、まずここまでの段階で間違っているのでしょうか?
この処理があっているとしたら、ここからどのようにしてファイル名を一つずつ指定してそのファイルを開いていけばいいのでしょうか?
macでexcelをいじったことがないのでわからないことだらけですが宜しくお願いします。
あなたの回答
tips
プレビュー