可执行宏命令。
打开总表1.xlsm文件,执行宏ThisWorkbook.Macro2
代码如下:
Sub Macro2()
Dim fileDir As String '文本文件目录
Dim fileName As String '要打开的文本文件名
Dim serverNo As String
Dim serverDate As String
Dim dataSum As Long '要合并的文本记录数
Dim dataTotalOld As Long '汇总表中未合并时的记录条数
Application.ScreenUpdating = False
fileDir = ActiveWorkbook.Path & "\"
fileName = Dir(fileDir, 7)
Do While fileName <> "" And Right(fileName, 3) = "txt"
'fileName = "1 4-10.txt"
'获取服务器号和日期
serverNo = Left(fileName, InStr(1, fileName, " ") - 1) & "服"
serverDate = Mid(fileName, InStr(1, fileName, " ") 1)
serverDate = Replace(serverDate, "-", "月")
serverDate = Replace(serverDate, ".txt", "日")
Workbooks.OpenText fileName:= _
ActiveWorkbook.Path Application.PathSeparator & fileName, Origin:=936, _
StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1), _
Array(3, 1), Array(4, 1)), TrailingMinusNumbers:=True
dataSum = Range("a65535").End(xlUp).Row
Range("A1:D" & dataSum).Select
Range("A1:D" & dataSum).Select
Selection.Copy
'总表1.xlsm为要合并后的启动宏工作表
Workbooks("总表1.xlsm").Activate
EXCEL常用函数应用实例:如何提取姓名中的姓
EXCEL常用函数应用实例:如何提取姓名中的姓 Excel函数一共有11类,分别是数据库函数.日期与时间函数.工程函数.财务函数.信息函数.逻辑函数.查询和引用函数.数学和三角函数.统计函数.文本函数以及用户自定义函数.对于很多人来说,并不需掌握深奥的EXCEL 函数,我们只要懂得基本函数的应用就能大大提高我们的工作效率. 截取字符串是我们常用的函数,本次讲解如何使用LEFT截取字符串函数提取姓名中的姓,不含复姓 工具/原料 Microsoft office EXCEL 2003 以上的版本 待处理姓名数
dataTotalOld = Range("a65535").End(xlUp).Row 1
If dataTotalOld = 2 Then dataTotalOld = 1 '第一次使用
Range("C" & dataTotalOld).Select
ActiveSheet.Paste
Range("A" & dataTotalOld) = serverNo
Range("B" & dataTotalOld) = serverDate
Range("A" & dataTotalOld 1) = serverNo
Range("B" & dataTotalOld 1) = serverDate
Range("A" & dataTotalOld & ":B" & dataTotalOld 1).Select
Selection.AutoFill Destination:=Range("A" & dataTotalOld & ":B" & dataTotalOld dataSum - 1), Type:=xlFillDefault
Workbooks(fileName).Close savechanges:=False
fileName = Dir
Debug.Print fileName
Loop
Application.ScreenUpdating = True
End Sub
如何把一个文件夹内的所有文件生成一个Excel文档清单
如何把一个文件夹内的所有文件生成一个Excel文档清单 如果不用编程的方法,可以这样 比如说 你文件 放在 d:\file\里 开始--运行--直接输入cmd 回车 然后 d:回车 cd\ 回车 cd file 回车 最后 dir > 1.txt 然后再excel 里打开 1.txt ,分列 ,白板一下就出来了