如何用VB操作Excel转换为XML格式(介绍资料也有分)
对于EXCEL文件的内容,希望按照一定格式转换为xml文件,EXCEL内容例如:
Voucher_Id Oper Entry_Id ZhaiYao Acc_Code JieFang DaiFang fName1 fNeiRong1 fName2 fNeiRong2
1 Admin 1 测试摘要 540401 1000 部门 02005 项目工程 02005001
1 Admin 2 测试摘要 100101 1000
2 Admin2 1 测试摘要2 540402 900 部门 02005 项目工程 02005001
2 Admin2 2 测试摘要2 100101 900
转换为xml文件的内容为:
<?xml version="1.0" encoding="gb2312"?>
<interface>
<voucher id="">
<voucher_head>
<Voucher_Id>1 </Voucher_Id>
<Oper>Admin </Oper>
</voucher_head>
<voucher_body>
<entry>
<Entry_id>1 </Entry_id>
<ZhaiYao>测试摘要 </ZhaiYao>
<acc_code>540401 </acc_code>
<jiefang>1000 </jiefang>
<daifang>0 </daifang>
<auxiliary_accounting>
<item name="部门">02005 </item>
<item name="项目工程">02005001 </item>
</auxiliary_accounting>
</entry>
<entry>
<Entry_Id>2 </Entry_Id>
<ZhaiYao>测试摘要 </ZhaiYao>
<Acc_Code>100101 </Acc_Code>
<JieFang>0 &
相关问答:
为什么C写的DLL文件C、PB能调用VB不能调用?
VB里为什么有的DLL直接通过引用可以使用?有的需要通过declare申明外部函数?这些DLL有什么差别?
1、为什么PB能通过DECLARE声明而VB不行?
2、如果这个dll中的 ......
login.aspx.vb:
Public ReadOnly Property nameT() As String
Get
Return TextBox1.Text
&nb ......
Printer.ScaleMode = 6
6表示毫米
Printer.PaperSize = vbPRPSA4
'初始坐标
x = 1
y = 4
'最大的线筐
Printer.DrawStyle = 0
Printer.Line (x, y)-(x + 132.5, y) ......
form2,form3都分别有一个label1属性是一样
Private Sub Command1_Click()
Dim lbl As Label
if combo1.text="1" then
lbl = Form2.Label1
else
lbl = Form3.Label1
end if
......
Option Explicit
Dim N As Integer
Private Sub Command1_Click()
Dim A As Integer, B As Integer
A = 2: B = 3
For N = 1 To 6
  ......