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

可执行宏命令。
打开总表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

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

赞 (0)

相关推荐

  • excel如何将数据分列?excel分列方法介绍

    Excel表格用的很多吧,但是对于如何进行分列,想必你很少涉及到,很少用吧,下面我来说下excel如何将数据分列方法,一起来学习吧. 步骤 1.在我们电脑上没有表格的情况下,要在桌面上先建立一个表格, ...

  • excel怎么把数据分列

    下面介绍在EXCEL中把数据分列的方法,希望本指南能帮到大家. 操作方法 01 用下图中的表格为例演示操作方法.把表格中的数据以 - 为界分为两列. 02 选中表格,再点开数据选项卡 03 在下面展开 ...

  • Excel中如何数据分列的动画教程

    《Excel2003入门动画教程66、Excel中如何数据分列的》。 演示动画 操作步骤 如果一列英文和中文组合的字符数据，中间用“-”隔开了，如何将他们分开保存到两列中呢?我们可以用Excel中数据 ...

  • 如何将Excel单元格数据分列

    如何将Excel单元格数据分列

    Excel是现在十分常用的办公软件之一,有些新用户不知道如何将Excel单元格数据分列,接下来小编就给大家介绍一下具体的操作步骤.具体如下:1. 首先第一步根据下图所示,打开电脑中的Excel文档.2 ...

  • excel如何进行数据分列

    我们在处理excel数据时,经常会碰到一列中既有数字,又有字符,如(012100,张三),但往往在使用时又只需要其中的一部分,这时我们就要用到分列了.通过分列,我们可以将这列数字拆分为两列,一列为数字 ...

  • Excel如何利用数据分列提取单元格中的文本内容

    我们在使用excel处理数据的过程中会遇到多种类型的数据,其中就包括文本,有的文本具有统一的使用标准,对于这种输出处理起来会比较容易一些,如果不是很清楚其规范,可以先浏览一下这些文本,发现其中的规律才 ...

  • word表格转excel表格（word转换为表格怎么转换）

    word表格转excel表格（word转换为表格怎么转换）

    大家最常用的办公软件名单一定有Word和Excel.时不时还要在两个软件中来回转换.那今天给大家讲讲如何将Word的文字转到Excel里去,和如何把Excel表格插入到Word.Word转Excel将 ...

  • Excel中的数据如何导入到Access数据库中?

    现在大多数人记录数据都是用excel，但是一些程序员需要将Excel中的数据导入Access数据库中，编写一个另外的程序，但是对于初学者来说这还是挺艰难的，那么现在我就为大家讲解如何将Excel中的数 ...

  • 电脑内怎么把一个excel表格导入至其他excel文档中

    电脑内怎么把一个excel表格导入至其他excel文档中

    当我们在使用电脑excel软件处理数据的时候,如果想要将一个excel表格导入到另一个excel文档的话,应如何操作呢?接下来就由小编来告诉大家.具体如下:1. 第一步,打开电脑中的excel软件,然 ...