У меня была похожая история под WinXP на оффисах XP/2003 (в 2000 оффисе работало). Возможно похожая. Excel ругался на

Set FsoOut = CreateObject("Scripting.FileSystemObject")

Якобы неизвестный пользовательский тип. Это он про Scripting.FileSystemObject

Помогло такое объявление

Dim FsoOut As FileSystemObject

Dim txtFile As Object
Dim TxtPath As String

TxtPath = "c:\exp_plan.xml"

Set FsoOut = New FileSystemObject
Set txtFile = FsoOut.CreateTextFile("c:\exp_plan.xml", True)

Почитал в MSDN что так типа надо объявлять в оффисе XP. Самое интересное, что этот вариант работает и в Оффисе 2000 (win2000).