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.

Best
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''

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

Selection.SpecialCells(xlCellTypeLastCell).Select
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" & _
"<configuration
xmlns=""http://schemas.microsoft.com/.NetConfiguration/v2.0"" \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.