By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
464,420 Members | 1,247 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 464,420 IT Pros & Developers. It's quick & easy.

an 400 error about ActiveWorkbook.ActiveSheet.Cells(row, col)

P: n/a
Hi, I cannot solve the "400" error on the line
"ActiveWorkbook.ActiveSheet.Cells(row,titleCell).T ext.
Please help.
Thanks a lot.

'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''

Sub ExportXML(row As Integer)
Dim nRows As Integer
Dim nCols As Integer
Dim newXML As String
Dim titleCell As String
Dim epaddrCell As Integer
Dim enableGetWsdlCell As Integer

titleCell = 1
epaddrCell = 6

nRows = ActiveCell.row
nCols = ActiveCell.Column
newXML = ActiveWorkbook.ActiveSheet.Cells(row, titleCell).Text
Open newXML For Output As #1
Print #1, "<?xml version=""1.0"" encoding=""utf-8"" ?> \n" & _
xmlns="""" \n>" & _
"<system.serviceModel> \n"

Print #1, "</system.serviceModel>\n</configuration>"
Close #1
End Sub

Nov 21 '05 #1
Share this question for a faster answer!
Share on Google+

This discussion thread is closed

Replies have been disabled for this discussion.