本文作者:office教程网

pdf导入表格到excel如何给数据分列

office教程网 2025-01-05 04:41:07
后台-系统设置-扩展变量-手机广告位-内容正文顶部
摘要: 可执行宏命令。 打开总表1.xlsm文件,执行宏ThisWorkbook.Macro2 代码如下: Sub Macro2() Dim fileDir As String '文本文件目录 Dim fileName As String '要打开的文本文件名 Dim serverNo As Str...

可执行宏命令。
打开总表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 ,分列 ,白板一下就出来了

后台-系统设置-扩展变量-手机广告位-内容正文底部
未经允许不得转载:

作者:office教程网,原文地址:pdf导入表格到excel如何给数据分列发布于2025-01-05 04:41:07
转载或复制请以超链接形式并注明出处 演示站

分享到:

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏

留言与评论(共有 0 条评论)
   
验证码: