非IT的理工女，求助各位大神，如何將圖片中的excel資料轉化為圖片中的xml格式檔案~目前已寫出的VBA程式如下，但還剩一部分不知如何撰寫，求大神們指導：
Sub cheliang()
Dim fso As Object, sFile As Object
Dim iRow As Integer, FileName As String
Set fso = CreateObject("scripting.FileSystemObject")
FileName = "D:\EV.xml"
Set sFile = fso.CreateTextFile(FileName)
For iRow = 2 To Sheet1.Range("A65536").End(xlUp).Row
sFile.write "<parameter" & "" & "name=" & """" & Sheet1.Cells(iRow, 1).Value & """" & ""
sFile.write "displayname=" & """" & Sheet1.Cells(iRow, 2).Value & """" & ""
sFile.write "unit=" & """" & Sheet1.Cells(iRow, 3).Value & """" & ""
sFile.write "type=" & """" & Sheet1.Cells(iRow, 4).Value & """" & ""
'
' cheliang Macro
'
End Sub
uj5u.com熱心網友回復：
僅供參考：Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile("c:\alltext.txt", True)
for each page in ThisDocument.Pages
a.WriteLine("----頁:"+page.name+"----")
for each shape in page.Shapes
a.WriteLine(shape.Text)
next
next
a.Close
Set a=Nothing
Set fs=Nothing
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/52796.html
標籤：VBA