txt批量导入excel

changhuijiang

liulang0808 发表于 2014-3-1 14:46
你这个需求，可以在读取问txt文件之后，再用一段宏来处理，就是遍历各个表格，进行排序及删除多余的

对，是这个思路，然后我试着写，但是没有写出来，之前就知道一些编程知识，发现真要自己写，没那么简单，你有空帮我写下，谢谢了

liulang0808

changhuijiang 发表于 2014-3-1 20:02
对，是这个思路，然后我试着写，但是没有写出来，之前就知道一些编程知识，发现真要自己写，没那么简单， ...

Private Sub CommandButton1_Click()
    Application.ScreenUpdating = False
    For j = 1 To 3 '遍历读取txt文件的表
        a = 0
        For i = 9 To 1 Step -1
            Set rng = Sheets(j).Rows(1).Find(Cells(1, i), lookat:=xlWhole)
            If Not rng Is Nothing Then
                a = a + 1
                Sheets(j).Columns(rng.Column).Cut
                Sheets(j).Columns("A:A").Insert Shift:=xlToRight
            End If
        Next i
        'k1 = Sheets(j).Cells(1, Columns.Count).End(xlToLeft).Column
        If a = 0 Then
            Sheets(j).Cells.ClearContents
        Else
            For l = Sheets(j).Cells(1, Columns.Count).End(xlToLeft).Column To a + 1 Step -1
                Sheets(j).Columns(l).Delete
            Next l
        End If
    Next j
   
    Application.ScreenUpdating = True
End Sub

liulang0808

jianfujiane

changhuijiang

liulang0808 发表于 2014-3-1 20:45
jianfujiane

达到我想要的结果了，太感谢了

liulang0808

changhuijiang 发表于 2014-3-1 21:03
达到我想要的结果了，太感谢了

不客气，，，，，

metocool

这个我也用上了，感谢大大，但是有一点我的不对 ，请您百忙中帮我看看，谢谢了，也就是生成的excel表内数据是文本格式的，不要数值格式的，因为银行卡数据长了就成了科学计数法51e+000之类的。

liulang0808

metocool 发表于 2014-4-14 23:41
这个我也用上了，感谢大大，但是有一点我的不对 ，请您百忙中帮我看看，谢谢了，也就是生成的excel表内数据 ...

一种是首先设置好 单元格格式为文本

另外一种是在写入数据前增加英文的"'"单引号，然后加数据，就能变成文本，你可以尝试一下

metocool

liulang0808 发表于 2014-4-15 07:02
一种是首先设置好 单元格格式为文本

另外一种是在写入数据前增加英文的"'"单引号，然后加数据，就能变 ...

老大，我还是没有搞定，生成的还是科学计数法的数字

liulang0808

metocool 发表于 2014-4-23 10:56
老大，我还是没有搞定，生成的还是科学计数法的数字

下午有空，再帮你看看吧

metocool

liulang0808 发表于 2014-4-23 11:29
下午有空，再帮你看看吧

谢谢您了！