Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
read datas from XML to excel using VBAmacros
hi, i am newbie to this environment.i have one button in my ExcelWorkbook.i
have sample.xml in my "c:\" i want to read that sample.xml and disply in my Excel Workbook if i click the button using VBA macro programing.please can any one show some exmple to do this please |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
read datas from XML to excel using VBAmacros
"born2achieve" schreef in bericht ... hi, i am newbie to this environment.i have one button in my ExcelWorkbook.i have sample.xml in my "c:\" i want to read that sample.xml and disply in my Excel Workbook if i click the button using VBA macro programing.please can any one show some exmple to do this please A Button event to open the xml-file looks like this: Public Sub OpenXML() Workbooks.Open ("C:\sample.xml") End Sub This way the file will be opened in a new Excel window. All you have to do is copy and paste the xml-data if you want it to be displayed in a workbook that's already open. |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
read datas from XML to excel using VBAmacros
DEar Friend, i have tried this, but i cooldnot do this please help me to do this please code: Dim eMessage As String Dim xlApp As Excel.Application 'AppActivate("Microsoft Excel") 'xlApp = GetObject(, "Excel.Application") xlApp = CreateObject("Excel.Application") xlApp.Workbooks.OpenXML("C:\sample .xml") ChDir("C:\") xlApp.AlertBeforeOverwriting = False xlApp.DisplayAlerts = False xlApp.ActiveWorkbook.SaveAs(Filename:="C:\sample .xls") xlApp.AlertBeforeOverwriting = True xlApp.DisplayAlerts = True If Not xlApp Is Nothing Then xlApp.Quit() xlApp = Nothing End If |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
read datas from XML to excel using VBAmacros
"born2achieve" schreef in bericht ... DEar Friend, i have tried this, but i cooldnot do this please help me to do this please code: Dim eMessage As String Dim xlApp As Excel.Application 'AppActivate("Microsoft Excel") 'xlApp = GetObject(, "Excel.Application") xlApp = CreateObject("Excel.Application") xlApp.Workbooks.OpenXML("C:\sample .xml") ChDir("C:\") xlApp.AlertBeforeOverwriting = False xlApp.DisplayAlerts = False xlApp.ActiveWorkbook.SaveAs(Filename:="C:\sample .xls") xlApp.AlertBeforeOverwriting = True xlApp.DisplayAlerts = True If Not xlApp Is Nothing Then xlApp.Quit() xlApp = Nothing End If You are working with so called 'objects' and you can not assign a value to an object by saying i.e. xlApp = CreateObject("Excel.Application") Instead you should use Set, so for all objects it should be: Dim xlApp As Excel.Application Set xlApp = CreateObject("Excel.Application") ....and in the end also: Set xlApp = Nothing Please try that and let me know what happens. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Counting datas in one range based on datas in another range | Excel Discussion (Misc queries) | |||
import datas from one excel to another | New Users to Excel | |||
How can I get excel datas in mailing labels? | Excel Discussion (Misc queries) | |||
re : Finding the datas and deleting datas which are not found. | Excel Programming | |||
validating datas from an excel | Excel Programming |