提取excel中的数据，并生成bat批量处理

yeying329 2017-07-20 12:45:20

如下图，复制表格中的F和M列，并复制生成到bat

求一段代码，用VBA做一个自动的

...全文

2742 5 打赏收藏转发到动态举报

写回复

用AI写文章

5 条回复

切换为时间正序

请发表友善的回复…

发表回复

yeying329 2017-07-22

打赏
举报

引用 2 楼 sysdzw 的回复:

名称随便写，复制sub内容到里面，然后点击运行

Sub aaaaaaaa()
    Dim i%, s1$, s2$, strTemp1$, strTemp2$
    For i = 1 To ActiveSheet.UsedRange.Rows.Count
        strTemp1 = ActiveSheet.UsedRange.Range("F" & i)
        strTemp2 = ActiveSheet.UsedRange.Range("M" & i)
        If strTemp1 <> "" Then s1 = s1 & strTemp1 & vbCrLf
        If strTemp2 <> "" Then s2 = s2 & strTemp2 & vbCrLf
    Next
    Open "c:\1.bat" For Output As #1
    Print #1, s1 & s2
    Close #1
End Sub

多谢版主，完美解决~~~~~~~~~~~~~

赵4老师 2017-07-21

打赏
举报

仅供参考：

?"begin...";: _
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: _
?"end"

舉杯邀明月 2017-07-21

打赏
举报

都已经用“公式”拼接好了，那直接两次Ctrl+C、Ctrl+V 粘贴到记事本中，再另存为bat文件就行了。

如果要用代码处理，那你这个工作表中，　　只需要有目前的“B列、I列”这两列数据就行了，其它都是多余的。

无·法 2017-07-21

打赏
举报

名称随便写，复制sub内容到里面，然后点击运行

Sub aaaaaaaa()

    Dim i%, s1$, s2$, strTemp1$, strTemp2$

    For i = 1 To ActiveSheet.UsedRange.Rows.Count

        strTemp1 = ActiveSheet.UsedRange.Range("F" & i)

        strTemp2 = ActiveSheet.UsedRange.Range("M" & i)

        If strTemp1 <> "" Then s1 = s1 & strTemp1 & vbCrLf

        If strTemp2 <> "" Then s2 = s2 & strTemp2 & vbCrLf

    Next

    Open "c:\1.bat" For Output As #1

    Print #1, s1 & s2

    Close #1

End Sub