R
Rick Campbell
This module worked last month. I had a new system board put it yesterday, and now it doesn't work. It's stopping on the red line and giving the error message: Run-time error: 429: ActiveX component can't create object.
I didn't write it and the programmer is long gone. Any help would be appreciate!
TIA
Public Sub Move_Average_All_Cond(strXMLFileName As String)
Dim strXML As String
Dim strPath As String
Dim strFimeName As String
'''msgbox "Generating moving average XML for Condos (All)"
strXML = xmlMovingAveragesAllCond()
'''msgbox strXML
strPath = Application.CurrentProject.Path
Set fs = CreateObject("Scripting.FileSystemObject")
strFileName = strPath & "\" & strXMLFileName
Set a = fs.CreateTextFile(strFileName, True)
'''msgbox "saving File " & strFileName
a.WriteLine (strXML)
a.Close
End Sub
I didn't write it and the programmer is long gone. Any help would be appreciate!
TIA
Public Sub Move_Average_All_Cond(strXMLFileName As String)
Dim strXML As String
Dim strPath As String
Dim strFimeName As String
'''msgbox "Generating moving average XML for Condos (All)"
strXML = xmlMovingAveragesAllCond()
'''msgbox strXML
strPath = Application.CurrentProject.Path
Set fs = CreateObject("Scripting.FileSystemObject")
strFileName = strPath & "\" & strXMLFileName
Set a = fs.CreateTextFile(strFileName, True)
'''msgbox "saving File " & strFileName
a.WriteLine (strXML)
a.Close
End Sub