`
wentise
  • 浏览: 23201 次
  • 性别: Icon_minigender_2
  • 来自: 北京
社区版块
存档分类
最新评论

vba2

 
阅读更多
Const adVarChar = 200
Const MaxCharacters = 40000
Const ForReading = 1
Const ForWriting = 2
Set DataList = CreateObject("ADOR.Recordset")
DataList.Fields.Append ""filed_name"", adVarChar, MaxCharacters
DataList.Open
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("C:\Documents and Settings\Administrator\桌面\复件 hsqldb-2.2.9\22.txt", ForReading)
Do Until objFile.AtEndOfStream
    strLine = objFile.ReadLine
    DataList.AddNew
    DataList(""filed_name"") = strLine
    DataList.Update
Loop
objFile.Close
DataList.Sort = ""filed_name""
DataList.MoveFirst
Do Until DataList.EOF
    strText = strText & DataList.Fields.Item(""filed_name"") & vbCrLf
    DataList.MoveNext
Loop
Set objFile = objFSO.OpenTextFile("C:\Documents and Settings\Administrator\桌面\复件 hsqldb-2.2.9\22.txt", ForWriting)
objFile.WriteLine strText
objFile.Close 





Dim xlA,xlB,xlS,xlR,xlT
Set xlA = CreateObject("Excel.Application")
xlA.DisplayAlerts=False
Dim txtLine
Dim FileObj
Dim TextObj
Dim FilePath

FilePath = ".\txt.bat"
Set FileObj = CreateObject("Scripting.FileSystemObject")
Set TextObj = FileObj.OpenTextFile(FilePath)
Do While Not TextObj.AtEndOfLine
txtLine = txtLine & Trim(TextObj.ReadLine)
msgbox txtLine
Set xlB = xlA.Workbooks.Open(txtLine)
Set xlS = xlB.Worksheets(1)
Set xlR = xlS.UsedRange
Set xlT = xlA.Range("A1")
xlR.Sort(xlT)
xlB.Save
xlB.Close
Loop
MsgBox txtLin

xlA.Quit


@echo off
set DestPath="C:\Documents and Settings\Administrator\桌面\复件 hsqldb-2.2.9\新建文件夹"
set NewDestPath=.sort
set DestExt="*.*"
set SortDest="*.sort"

for /f "delims=" %%i in ('dir  /b/a-d/s  %DestPath%\%DestExt%') do (

echo copy "%%i" "%%i%NewDestPath%">>txt.bat
)
rem pause > nvl
call txt.bat
del .\txt.bat

for /f "delims=" %%i in ('dir  /b/a-d/s  %DestPath%\%SortDest%') do (

echo %%i>>txt.bat
)
pause 

分享到:
评论

相关推荐

    Python-Vba2Graph从VBA代码生成调用图以便更轻松地分析恶意的Office宏

    **Python-Vba2Graph:揭示VBA宏背后的恶意行为** 在现代网络安全中,恶意Office宏是一种常见的攻击手段,黑客常利用这些宏在受害者计算机上执行恶意代码。为了对抗这种威胁,安全研究人员需要深入理解VBA(Visual ...

    Writing Excel Macros with VBA 2nd Edition

    careful custom programming using the VBA (Visual Basic for Applications) language. Writing Excel Macros with VBA, 2nd Edition offers a solid introduction to writing VBA macros and programs, and will ...

    Excel VBA 高效办公从入门到精通 何非 源代码

    2 VBA程序设计基础 3 VBA过程和对象 4 利用VBA进行单元格操作 5 利用VBA进行工作表操作 6 工作表界面 7 利用VBA处理日期、时间和金额 8 查询和统计 9 利用Chart对象创建图表 10 利用PivotTable对象创建数据...

    AutoCAD-VBA命令大全.zip_AutoCAD_VBA_CAD VBA 命令_VBa_autocad vba_cad命

    2. **工作环境**:VBA集成开发环境(IDE)提供代码编辑器、调试器和对象浏览器,帮助开发者理解AutoCAD对象模型并编写代码。 3. **命令和函数**:VBA中,你可以调用AutoCAD的内置命令,如`Line`,`Circle`等,或者...

    二维码小工具 -VBA_二维码vba_二维码_二维码生成_VBa_VBA二维码_

    2. **数据编码**:在VBA中,我们需要将用户输入的数据按照QR Code的编码规则进行转换。这包括选择合适的版本、数据模式、添加起始和结束标志、错误校验码等。 3. **矩阵生成**:编码后的数据被转化为二维矩阵,即...

    WPS支持VBA 7.1版本 VBA For WPS

    VBA(Visual Basic for Applications)是一种在Microsoft Office套件中广泛使用的编程语言,允许用户自定义功能、创建宏和自动化工作流程。WPS Office,作为Microsoft Office的替代品,也开始支持VBA,尤其是VBA 7.1...

    VBA代码助手专业版_VBa_VBA代码助手_

    2. **代码格式化**:工具可能会提供代码格式化功能,自动调整代码的缩进、换行和空格,使代码更加整洁、易于阅读。良好的代码格式对于团队协作尤其重要,因为统一的代码风格可以减少沟通成本。 3. **代码提示与补全...

    进销存管理系统(Excel VBA实现)_ExcelVBA_VBa_进销存_vba进销存管理_VBA进销存

    2. **销售管理**:此模块跟踪客户信息、销售订单、发货单以及回款情况。VBA可以帮助我们快速生成销售报表,分析销售趋势,并自动生成客户对账单。 3. **库存管理**:库存模块管理商品的存储、盘点和预警。VBA可以...

    WPS支持VBA 7.1版本 VBA For WPS 2019(1)插件,大家打开vba组件所需

    2. 开发环境:WPS Office可能提供一个集成的VBA编辑器,类似于Microsoft Office的Visual Basic Editor(VBE),在这里可以编写和调试宏代码。 3. 兼容性:尽管WPS Office支持VBA 7.1,但并非所有VBA代码都能无缝迁移...

    EXCEL VBA函数手册.rar_Excel VBA_VBA excel_VBa_excel_vba excel

    vba函数说明,几乎所有vba函数的说明及实例

    【免费下载】ExcelVBA和WordVBA教程.rar

    2. **对象模型**:理解Excel的对象模型是编写高效VBA的关键。主要包括Workbook、Worksheet、Range等对象,以及它们的方法和属性。 3. **事件驱动编程**:VBA可以响应用户或程序触发的事件,如打开工作簿、点击按钮...

    VBA课件VBA入门

    VBA课件适用于VBA入门VBA入门VBA入门VBA入门VBA入门

    VBA manual(微软官方VBA手册)

    VBA手册是微软官方提供的关于Visual Basic for Applications(VBA)编程语言的指南,它主要面向使用MS Office 2010或MS Excel VBA进行自动化任务和创建宏的用户。VBA是为Office套件量身打造的编程语言,用于控制文档...

    excel VBA帮助文件.rar_Excel VBA_VBA excel_VBA,Excel_excel_vba exce

    2. **模块**:VBA代码通常储存在模块中,包括标准模块和类模块。标准模块用于存放通用函数和过程,而类模块则用于创建自定义对象。 3. **对象模型**:Excel VBA使用对象-方法-属性的结构。例如,工作簿(Workbook)...

    Excel VBA视频教程 80集

    第001集:宏与VBA 第002集:VBA中的语句、对象、方法与属性 第003集:循环语句 第004集:判断语句 第005集:VBA变量 第006集:函数与公式 第007集: VBE编辑器 ...第028集:VBA字典-2 第029集:VBA数组与字典综合应用之下棋法

    WPSVBA、ExcelVBA编程实例(150例).zip

    2. **WPSVBA与ExcelVBA的异同**:虽然WPS表格和Excel在功能上有很多相似之处,但它们的VBA环境略有不同。WPSVBA借鉴了ExcelVBA的许多特性,但可能在某些函数和对象上有细微差别。学习这两个版本的VBA,有助于理解...

    Office VBA 2013 CHM

    2. **Access 2013 Developer Documentation.chm**:Access是数据库管理工具,其VBA支持强大的数据操作和报表生成。此文档详细解释了如何创建和管理表、查询、窗体、报表,以及如何设计复杂的数据库应用。开发者可以...

    最新版VBA插件7.1支持wps

    2. **自定义功能**:用户可以根据自己的需求定制WPS的工具栏和菜单,添加自定义按钮来执行VBA宏,使工作环境更符合个人习惯。 3. **数据处理**:VBA插件在WPS的电子表格中尤为有用,可以进行复杂的数据计算、过滤、...

    VBA代码助手专业版3.7.8.0

    VBA代码库收藏管理, VBA中文代码库输入提示, VBA变量名首字母输入提示 VBA函数过程输入提示, VBA代码自动对齐排版, VBA代码混淆, VBA工程密码破解, Excel VBA模块隐藏保护, VBA颜色修改器, VBA代码行号显示 ...

Global site tag (gtag.js) - Google Analytics