如何用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 &
相关问答:
大家好,问个vb打印问题
printer.print "dsff"
.....
....
Printer.EndDoc
打印成功后我将执行
sqlstr = "update vc_yh set pr=' 已打印 ', ......
出錯的時候去執行一段代碼之後,再回到出錯的地方接著往下執行
如何用vb來實現?
Sub FFFFFFF()
AAAA:
On Error goto BBBB
....
.... ......
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
  ......
VB code:
'sqlstr = "INSERT INTO useinfo " & "(usename ,password)" & " values (' " & usename & " ' " & ",'" & password & ......