文が切れてしまいました…
いろんな資料をかき集め、自宅のWINのEXCEL2003で作成したのですが、それをMACで使おうとするとどうしても動きません。(なにも起こらずマクロ終了してしまう)とりあえず作成したマクロを載せます。
Sub 読み込み()
Dim パス名 As String
Dim ファイル名 As String
Dim テキストファイル
Dim シート数 As Integer
Dim 作成ブック As Workbook
Dim 大元ファイル As String
Dim 列数 As Integer


パス名 = ActiveWorkbook.Path & "\textdate\"
ファイル名 = Dir(パス名 & "*.txt")


Do While ファイル名 <> ""
Workbooks.Open パス名 & ファイル名
ActiveCell.CurrentRegion.Select
Selection.Copy
ActiveWorkbook.Close
Sheets("月").Activate
Range("A3").Select
列数 = Range(ActiveCell， _
ActiveCell.End(xlToRight)).Columns.Count
Cells(65536， ActiveCell.Column).End(xlUp)_
.Offset(1).Resize(， 列数).Select
ActiveCell.PasteSpecial

ファイル名 = Dir()
Loop
End Sub

エクセルの経験、まだ一ヶ月ちょっとなので、雑な数式
だとおもいますが、これをMACのOS9、EXCEL2001で動かしたいのです。
もちろんMACなので￥＝：にしましたが、結果は同じでした。
あ、具体的にしたい事は、textdateというフォルダに入っているテキストデータをすべて一括読み込みしたいのです。よろしくお願いします…

こんばんわ。私の会社ではMAC(OS9)が主流で、エクセルもEXCEL2001しかありません。こんな状況の中、複数のtextファイル(xltext)を読み込み、一つのエクセルファイルにまとめる、というマクロをつくらなければならなくなってしまいました。いろんな資料を参考に、

だるまです。

HPのトップページのアクセス数が3万を超えました。
HP開設当時は、ここまでくるとは思ってなかったです。

だるまです。

　実は2/10，11，12の3連休にアドイン「フォルダ配下のエクセルファイルの検索」のバグ修正をしようと考えていたのですが、インフルエンザにかかってしまい出来ませんでした。
　ご迷惑をおかけして申し訳ございません。
　で、結局いつやるのかと言うと、ゴールデンウィークの予定です。
（あ、予定ですよ。確定ではありませんので。）

Re:アドインの修正できなくてすいません

だるま

データNo：104

2007年03月22日(Thu) 11:34

だるまです。
アドインを修正しました。

素早い返答ありがとうございます。おっしゃるとおりヘルプではJPGは出来るとかいてあったのでがんばってみましたが、だめでした。バグだとは・・・とてもショックです。デジカメで顔写真を取って、それを検索するプログラムを作っていたので、jpgファイルが良かったのですが・・・別な方法を考えてみます。
本当にありがとうございました。また困ったときに相談します。

Re:ありがとうございました

だるま

データNo：96

2007年02月10日(Sat) 01:13

だるまです。

>デジカメで顔写真を取って、それを検索するプログラムを作っていたので
ということは、もう作成中なのですか…。
　あまり詳しく調べていないのでダメかもしれませんが、
Excelの[挿入]-[図]-[ファイルから...]
を使用すると、ワークシートにjpegファイルを表示できるので、自動化出来ればと思いました。
（プログラムの画面をVBAのフォームで作成するのではなく、エクセルのワークシートを使用したらどうかと思いました。）

Re:ありがとうございました

ひろき

データNo：99

2007年02月14日(Wed) 09:53

返信ありがとうございます。始めはそれを考えていたのですが、難しそうなのでやめたのでした。
どういうのを考えているのかというと、デジカメのファイル名の入ったセルを選ぶとそのファイル画像が表示されるというものです。セルを変更すると自動でファイル画像も変更できるようにしたかったのです。（説明が分かったかな？）
そうすると、新しいファイル名を選ぶと古いファイル画像を消去して新しいファイル画像を表示しなくてはなりませんよね。また、ボタン等を押さなければ、ファイル名を選んでも画像は表示されないと思います。等などの理由からユーザーフォームのピクチャを使うと楽かなと思った次第です。
何か良いアイディアがあったら教えていただきたいと思います。

Re:ありがとうございました

だるま

データNo：100

2007年02月14日(Wed) 17:06

だるまです。

　「ボタン」と言っているのは、シート上に貼付けたフォームの事なのでしょうか？
　ダメかもしれませんが、
「セルを変更すると自動で...」⇒ワークシートのSelectionChangeイベントでは無理でしょうか？
　target引数はRangeオブジェクトで、選択範囲を示します。
頑張れば、選択したセルの値（ファイル名）を取得できます。
（その前に複数範囲を選択されたときの処理を考える必要があるが…。アクティブセルだけ考慮すればいいか？）
　これで、ボタンなんか無くても多分出来ると思います。

Re:ありがとうございました

ひろき

データNo：101

2007年02月16日(Fri) 12:09

　教えていただいたSelectionChangeとTarget引数で練習をしてみました。なかなか面白いですね。本とかを見てもそこまで載ってなくて、大変勉強になります。奥が深いぜ！ExcelVBA！
　しかし問題があります。選択したセルの値（ファイル名）を取得して、そのファイルを［図の挿入-ファイルから］で読み込むことが出来ると思いますが、次のセルを選ぶとき前の図を消して次の図を挿入しなくてはなりませんよね。さらに図の大きさを設定し直したりと、処理がかかりそうな気がします。どんなもんでしょう？アドバイスください。

Re:ありがとうございました

だるま

データNo：102

2007年02月17日(Sat) 09:46

だるまです。

>図の大きさを設定し直したり
やってみました。原寸サイズのものが表示されてから、サイズが変更された…。これはヤダなぁ。
Application.ScreenUpdating = False
としてから、図の読み込み、サイズ変更して、最後に
Application.ScreenUpdating = True
とするといいみたい。

>次のセルを選ぶとき前の図を消して
図を読込むときに、読込んだ図(Pictureオブジェクト)をプロシージャスコープの変数に保持しておく。図を消すときはPictureオブジェクトのDeleteメソッドを呼べばいいと思います。

サンプルソース（標準モジュールに書いてください。）
--------------------------
Option Explicit

Dim objPict As Picture

Sub 図の挿入()

Application.ScreenUpdating = False

Set objPict = ActiveSheet.Pictures.Insert("Macintosh HD:test.jpg")
objPict.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 197#
Selection.ShapeRange.Width = 377#
Selection.ShapeRange.Rotation = 0#

Application.ScreenUpdating = True
End Sub

Sub 図の削除()
If Not (objPict Is Nothing) Then
objPict.Delete
Set objPict = Nothing
End If
End Sub