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

如下图,复制表格中的F和M列,并复制生成到bat
求一段代码,用VBA做一个自动的

建立个按钮,把代码复制进去就成了~
这是把F和M列的内容写到"f:\批量.bat",每次执行都会把原本内容覆盖的,想保留原数据就改成“Open "f:\批量.bat" For Append As #1”
Private Sub CommandButton1_Click()
Dim a
Open "f:\批量.bat" For Output As #1
For a = 1 To WorksheetFunction.CountA(Columns(6))
Print #1, Range("f" & a)
Next
For a = 1 To WorksheetFunction.CountA(Columns(13))
Print #1, Range("m" & a)
Next
Close #1
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2017-07-20
表示看不清。只是复制功能,手工操作下就好了吧。追问

不需要看清楚表格内容啊.只要用代码把F和M列的数据提取出来就行了,表格内容每次都不一样的. 就是嫌手工操作麻烦,看看有没有代码可以实现

追答

把最右边的表复制(就是“MD 文件夹路径”)的信息,粘贴在cmd里面就可以了,不需要用BAT吧。

相似回答