VBA读excel写xml
VBA
◆写文件
Dim sFile As Object, fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
sFile.WriteLine (String(8, " ") & "<Request>")
sFile.Close
Set sFile = Nothing
Set fso = Nothing
◆选择文件夹
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
folder = .SelectedItems(1)
End If
End With
MsgBox folder & "/TaskInfo.xml"
◆循环/IF
Do While Cells(rowIndex, 2).Value <> ""
For compCol = 8 To 17 Step 1
If idStr < 10 Then
sFile.WriteLine (String(12, " ") & "<Complete id=""0" & idStr & """ />")
Else
sFile.WriteLine (String(12, " ") & "<Complete id=""" & idStr & """ />")
End If
Next compCol
Loop
◆完整
Sub CreateFile()
Dim sFile As Object, fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
folder = "D:"
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = -1 Then
folder = .SelectedItems(1)
End If
End With
MsgBox folder & "/TaskInfo.xml"
Set sFile = fso.CreateTextFile(folder & "/TaskInfo.xml", True)
sFile.WriteLine ("<?xml version=""1.0"" encoding=""UTF-8""?>")
sFile.WriteLine ("<Tasks>")
rowIndex = 4
Do While Cells(rowIndex, 2).Value <> ""
' タスクID
taskId = Cells(rowIndex, 2).Value
' 家電対象
obj = Cells(rowIndex, 4).Value
sFile.WriteLine (String(4, " ") & "<Task id=""" & taskId & """ obj=""" & obj & """>")
sFile.WriteLine (String(8, " ") & "<Request>")
For compCol = 8 To 17 Step 1
' 補完ID
compId = Cells(rowIndex, compCol).Value
If compId <> "" Then
idStr = compCol - 7
If idStr < 10 Then
sFile.WriteLine (String(12, " ") & "<Complete id=""0" & idStr & """ />")
Else
sFile.WriteLine (String(12, " ") & "<Complete id=""" & idStr & """ />")
End If
End If
Next compCol
sFile.WriteLine (String(8, " ") & "</Request>")
' URL
URL = Cells(rowIndex, 5).Value
' Path
Path = Cells(rowIndex, 6).Value
' Method
method = Cells(rowIndex, 7).Value
sFile.WriteLine (String(8, " ") & "<Api url=""" & URL & """ path=""" & Path & """ method=""" & method & """ >")
sFile.WriteLine (String(12, " ") & "<Input>")
' 入力定義
inputText = Cells(rowIndex, 18).Value
sFile.WriteLine (inputText)
sFile.WriteLine (String(12, " ") & "</Input>")
sFile.WriteLine (String(8, " ") & "</Api>")
sFile.WriteLine (String(8, " ") & "<Response>")
' 出力応答文種別
outputStatus = Cells(rowIndex, 19).Value
sFile.WriteLine (outputStatus)
sFile.WriteLine (String(8, " ") & "</Response>")
sFile.WriteLine (String(4, " ") & "</Task>")
sFile.WriteLine
rowIndex = rowIndex + 1
Loop
sFile.WriteLine ("</Tasks>")
sFile.Close
Set sFile = Nothing
Set fso = Nothing
End Sub
Sub DeleteFile()
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFile ("D:/TestFile.txt")
End Sub
转载于:https://www.cnblogs.com/xuemanjiangnan/p/8378744.html
VBA读excel写xml相关推荐
- PLSQL_PLSQL读和写XML文件方式(案例)
2012-05-01 Created By BaoXinjian 一.写XML文件 Step1. 创建测试目录 --创建测试目录 CREATE OR REPLACE DIRECTORY bxjxml ...
- EasyExcel 学习笔记 - 读Excel
EasyExcel 学习笔记 - 读Excel pom.xml 添加依赖 测试数据 实体类 自定义转换器 最简单的读 写法1 写法2 写法3 写法4 多行头(跳过N行) 读多个sheet 读全部 sh ...
- Java实现excel的读与写(Apache POI)
本文将讨论利用Apache POI提供的类实现Excel文件的读与写操作. 整个项目的目录结构基于前面的一篇文章:<java读取pdf内容> 1.pom.xml <dependenc ...
- Python实现读、写、改Excel文件的常见方式及其应用场景对比
Excel表格类型 当前,Excel文件主要有如下两种格式: .xls格式,主要应用于Excel 2003及以下版本. .xlsx格式,主要应用于Excel 2007及以上版本. 读取Excel xl ...
- java使用poi操作excel(读、写)
摘要: Jakarta POI 是apache的子项目,目标是处理ole2对象.它提供了一组操纵Windows文档的Java API 目前比较成熟的是HSSF接口,处理MS Excel(97-2007 ...
- python填写excel-Python|读、写Excel文件(三种模块三种方式)
python读写excel的方式有很多,不同的模块在读写的讲法上稍有区别: 用xlrd和xlwt进行excel读写: 用openpyxl进行excel读写: 用pandas进行excel读写: 为了方 ...
- 02_Android写xml文件和读xml文件
新建Android项目 编写AndroidManifest.xml,使本Android项目具有单元测试功能和写外设的权限. <?xml version="1.0" en ...
- pythone函数基础(11)读,写,修改EXCEL
#读EXCEL需要导入xlrd模块---在python控制台pip install xlrd模块import xlrdbook = xlrd.open_workbook('stu3.xls')shee ...
- python3 写入excel_Python3 读、写Excel文件的操作方法
首先,简单介绍一下EXECL中工作簿和工作表的区别: 工作簿的英文是BOOK(WORKBOOK),工作表的英文是SHEET(WORKSHEET). •一个工作簿就是一个独立的文件 •一个工作簿里面可以 ...
- 小白用python处理excel文件-Python读、写Excel文件(三种模块三种方式,小白也可学会)...
python读写excel的方式有很多,不同的模块在读写的讲法上稍有区别: 用xlrd和xlwt进行excel读写: 用openpyxl进行excel读写: 用pandas进行excel读写: 为了方 ...
最新文章
- GCC 链接 xxx:No such file or directory 及运行可执行文件 error while loading shared libraries: xxx.so 解决方案
- 网页制作-表单元素2
- android 将bitmap存为 bmp格式图片大小,Android Bitmap保存為.bmp格式,圖像轉化為黑白圖片...
- 【最佳解法】剑指 Offer 32 - III. 从上到下打印二叉树 III
- scala能进入交互模式但是无法执行本地文件、长时间卡住的问题
- 简洁强大的JavaWeb框架Blade
- P2163 [SHOI2007]园丁的烦恼(二维数点模板题)
- ccs4c语言用户手册,CCS v4.x快速入门:EasyDsp开发套件产品手册
- sender分析之Selector
- Android 常用数据操作封装类案例
- python3 + selenium 之窗口切换
- [USACO 2008 MAR] 土地购买
- 工业镜头视场、倍率、焦距之间的关系
- 51单片机 Proteus仿真 时钟 串口 发送时钟 整点报时
- HTMLday2旅途
- i18n(国际化)地域标识码
- 整理兼职网站资源分享
- zjfc-1108,hdu-1222 wolf and rabbits
- 使用轻量级JAVA 爬虫Gecco工具抓取新闻DEMO
- CRC循环冗余校验检错的原理
热门文章
- Oracle项目管理系统之合同台账
- Wincc常用C脚本
- AliExpress国际速卖通唰信誉用什么虚拟卡用信可以成功扣款?
- 基4fft matlab,快速傅里叶变换基4时间抽取FFT算法
- ZXing和Zbar扫描 条形码ZBAR_I25 和ITF14码制扫描
- matlab时域采样与频域采样,实验二:时域采样与频域采样.doc
- 安徽省计算机二级水平考试试卷,安徽省计算机二级考试理论试题(附答案)
- ffmpeg 命令转为 avi,mp4,h264, yuv
- WinZip 15注册码
- java ssh框架是什么_JAVA SSH框架介绍