怎么用VBA导入几个TXT文件到同一个工作表里去。模板都一样就数据有点出入。挺急的麻烦哪位大大出手吧谢谢。

夕阳怡枫 2012-09-11 05:43:07
Sub 读取数据()
'made by fxw
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim newwb As Workbook
Set newwb = Workbooks.Add
newwb.Application.ActiveWindow.Caption = "临时数据.xls"
With fd
.Filters.Clear
.Filters.Add "文本文件", "*.txt", 1
.Filters.Add "所有文件", "*.*", 2
.Title = " 请选择要合并的txt文件 "
If .Show = -1 Then
Application.ScreenUpdating = False
Dim vrtSelectedItem As Variant
Dim i As Integer
i = 1
For Each vrtSelectedItem In .SelectedItems
Dim tempwb As Workbook
Set tempwb = Workbooks.Open(vrtSelectedItem)
tempwb.Worksheets(1).Copy Before:=newwb.Worksheets(i)
newwb.Worksheets(i).Name = VBA.Replace(tempwb.Name, ".txt", "")
tempwb.Close savechanges:=False
i = i + 1
Next vrtSelectedItem
Else:
newwb.Close savechanges:=False
Exit Sub
End If
End With
Sheets(1).Select
Range("A1").Select
If ActiveWorkbook.Sheets.Count > 3 Then
Sheets("Sheet1").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Sheet2").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
Sheets("Sheet3").Select
Application.DisplayAlerts = False
ActiveWindow.SelectedSheets.Delete
Application.DisplayAlerts = True
End If
Application.ScreenUpdating = True
Selection.AutoFilter '筛选
End Sub

大家帮帮忙吧。困在这里面一个星期了。现在是每一个TXT文件生成一个工作表，我想要的是不管选择几个TXT文件都输出在同一个表上。
...全文
373 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
舉杯邀明月 2012-09-17
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 的回复:]

要把数据导入在当前工作簿的第2个工作表上。悲剧啊
[/Quote]
-_-!!!
真不知道你的“当前工作簿”是不是你正在操作、要导入新数据的工作薄。

如果是，就按我后面说的改吧。
把前面的这两句：
Set NewWB = Workbooks.Add
NewWB.Application.ActiveWindow.Caption = "临时数据.xls"
改成：
Set NewWB = ActiveWorkbook
Sheets(2).Select

后面的两处：NewWB.Sheets(1)
把 1 改成 2

把 End With 后面的那句：Sheets(1).Select
注释掉或删除。

这样应该就行了……
-_-!!!
自己怎么不想下如何做……
舉杯邀明月 2012-09-13
  • 打赏
  • 举报
 回复
我承认你最初提问的那个，要处理好是有一点儿难度。


但你在6F问的，不就是换个被操作对象吗？？？
这都还不会？！
舉杯邀明月 2012-09-13
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 的回复:]

要把数据导入在当前工作簿的第2个工作表上。悲剧啊
[/Quote]
我看你也是杯具……
你就不能自己动下脑吗？？？？
夕阳怡枫 2012-09-13
  • 打赏
  • 举报
 回复
要把数据导入在当前工作簿的第2个工作表上。悲剧啊
夕阳怡枫 2012-09-13
  • 打赏
  • 举报
 回复
要生成在现有工作簿的Sheet2上应该怎么该不用新生成新工作簿了今天拿去给甲方看了他要不用新生成工作簿[Quote=引用 3 楼 的回复:]
楼主试试这个：

VB code

Sub 读取数据()
'made by fxw
Dim fd As FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
Dim NewWB As Workbook
Set NewWB = Workbooks.Add
NewW……
[/Quote]
夕阳怡枫 2012-09-13
  • 打赏
  • 举报
 回复
能不能不生成新的工作簿就导入到原来的工作簿上？
舉杯邀明月 2012-09-12
  • 打赏
  • 举报
 回复
楼主试试这个：
Sub 读取数据()

   'made by fxw

   Dim fd As FileDialog

   Set fd = Application.FileDialog(msoFileDialogFilePicker)

   Dim NewWB As Workbook

   Set NewWB = Workbooks.Add

   NewWB.Application.ActiveWindow.Caption = "临时数据.xls"

   With fd

      .Filters.Clear

      .Filters.Add "文本文件", "*.txt", 1

      .Filters.Add "所有文件", "*.*", 2

      .Title = " 请选择要合并的txt文件 "

      If .Show = -1 Then

         Application.ScreenUpdating = False

         Dim vrtSelectedItem As Variant

         Dim i As Integer

         Dim iLineCount As Long

         i = 1

         iLineCount = 1

         Application.DisplayAlerts = False

         For Each vrtSelectedItem In .SelectedItems

            Dim TempWB As Workbook

            Set TempWB = Workbooks.Open(vrtSelectedItem)

            'TempWB.Worksheets(1).Copy Before:=NewWB.Worksheets(i)

            'NewWB.Worksheets(i).Name = Replace(TempWB.Name, ".txt", "")

            'TempWB.Close savechanges:=False

            'i = i + 1

            i = TempWB.Sheets(1).UsedRange.Rows.Count

            TempWB.Sheets(1).Range("1:" & i).Copy

            NewWB.Sheets(1).Paste NewWB.Sheets(1).Range("A" & iLineCount)

            TempWB.Close False

            iLineCount = iLineCount + i

         Next

      Else

         NewWB.Close False

         Exit Sub

      End If

   End With

   Sheets(1).Select

   Range("A1").Select

   'If ActiveWorkbook.Sheets.Count > 3 Then

   '   Sheets("Sheet1").Select

   '   Application.DisplayAlerts = False

   '   ActiveWindow.SelectedSheets.Delete

   '   Application.DisplayAlerts = True

   '   Sheets("Sheet2").Select

   '   Application.DisplayAlerts = False

   '   ActiveWindow.SelectedSheets.Delete

   '   Application.DisplayAlerts = True

   '   Sheets("Sheet3").Select

   '   Application.DisplayAlerts = False

   '   ActiveWindow.SelectedSheets.Delete

   '   Application.DisplayAlerts = True

   'End If

   Application.DisplayAlerts = True

   Application.ScreenUpdating = True

   Selection.AutoFilter    '筛选

End Sub
舉杯邀明月 2012-09-12
  • 打赏
  • 举报
 回复
楼主试试这个：
Sub 读取数据()

   'made by fxw

   Dim fd As FileDialog

   Set fd = Application.FileDialog(msoFileDialogFilePicker)

   Dim NewWB As Workbook

   Set NewWB = Workbooks.Add

   NewWB.Application.ActiveWindow.Caption = "临时数据.xls"

   With fd

      .Filters.Clear

      .Filters.Add "文本文件", "*.txt", 1

      .Filters.Add "所有文件", "*.*", 2

      .Title = " 请选择要合并的txt文件 "

      If .Show = -1 Then

         Application.ScreenUpdating = False

         Dim vrtSelectedItem As Variant

         Dim i As Integer

         Dim iLineCount As Long

         i = 1

         iLineCount = 1

         Application.DisplayAlerts = False

         For Each vrtSelectedItem In .SelectedItems

            Dim TempWB As Workbook

            Set TempWB = Workbooks.Open(vrtSelectedItem)

            'TempWB.Worksheets(1).Copy Before:=NewWB.Worksheets(i)

            'NewWB.Worksheets(i).Name = Replace(TempWB.Name, ".txt", "")

            'TempWB.Close savechanges:=False

            'i = i + 1

            i = TempWB.Sheets(1).UsedRange.Rows.Count

            TempWB.Sheets(1).Range("1:" & i).Copy

            NewWB.Sheets(1).Paste NewWB.Sheets(1).Range("A" & iLineCount)

            TempWB.Close False

            iLineCount = iLineCount + i

         Next

      Else

         NewWB.Close False

         Exit Sub

      End If

   End With

   Sheets(1).Select

   Range("A1").Select

   'If ActiveWorkbook.Sheets.Count > 3 Then

   '   Sheets("Sheet1").Select

   '   Application.DisplayAlerts = False

   '   ActiveWindow.SelectedSheets.Delete

   '   Application.DisplayAlerts = True

   '   Sheets("Sheet2").Select

   '   Application.DisplayAlerts = False

   '   ActiveWindow.SelectedSheets.Delete

   '   Application.DisplayAlerts = True

   '   Sheets("Sheet3").Select

   '   Application.DisplayAlerts = False

   '   ActiveWindow.SelectedSheets.Delete

   '   Application.DisplayAlerts = True

   'End If

   Application.DisplayAlerts = True

   Application.ScreenUpdating = True

   Selection.AutoFilter    '筛选

End Sub
基础系统数据采集工作总结
 准备          初期     具体流程     11月22日：接到基础系统数据采集的通知，心想上次的数据采集没有出现太大的出入，就答应了下来。与相关负责人讨论了一番，结论是：按照上次的方式培训十期人员，描述各表关系，理清思路，每个二级学院派去一个十期负责人给予技术指导，帮助收集。       11月24日 16:00-17:30：与颖杰、霞姐一起培
数据分析侠A的成长故事
数据分析侠A的成长故事面包君 同学A：22岁，男，大四准备实习，计算机专业，迷茫期作为一个很普通的即将迈入职场的他来说，看到周边的同学都找了技术开发的岗位，顿觉自己很迷茫，因为自己不是那么喜欢钻研写代码，而自己又没太多的经验。那年他实习，选择了一家国内一线梯队的电商公司，HR问道想选择什么岗位，而他本人自己也比较困惑，说对数据感兴趣。而恰好那年公司打算成立一个数据部门，就把同学A分配到了市场部的数
【转】100项PPT制作技术
1. 两幅图片同时动作 PowerPoint的动画效果比较多，但图片只能一幅一幅地动作。如果你有两幅图片要一左一右或一上一下地向中间同时动作，可就麻烦了。其实办法还是有的，先安置好两幅图片的位置，选中它们，将之组合起来，成为"一张图片"。接下来将之动画效果设置为"左右向中间收缩
Autocad技巧
AutoCAD经典疑难解答与技巧 答：磨刀不误砍柴工。计算机绘图跟手工画图一样，也要做些必要的准备。如设置图层、线型、标注样式、目标捕捉、单位格式、图形界限等。很多重复性的工作则可以在模板图如ACAD.DWT中预先做好，开始新图拿来就能用。  2、问：在AutoCAD中采用什么比例绘图好？  答：最好使用1∶1比例画，输出比例可以随便调整。画图比例和输出比例是两个概念，输出时使用
做完十年数据分析后的思考与总结
提前做好职业规划，多复盘、多记录、多写作，都是成年人，没必要跟自己过不去，好好沉淀，直到被掘金人挖到的那一刻，真正的实现价值的变现。
VBA

2,462

社区成员

10,807

社区内容

发帖
与我相关
我的任务
社区描述
VBA（Visual Basic for Applications）是Visual Basic的一种宏语言，是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
  • VBA
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章