如何用VBA提取文本文件（*.TXT),提取指定位置数据或字符串

天宇130

请高人帮忙

office2008

Sub yy()
    Dim sr As String, fd As Boolean, l As Integer, i As Integer
    Dim arr() As String, z As Integer
    Range("a2:j10000").Clear
    Open ThisWorkbook.Path & "\600017.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, sr
        If InStr(sr, "主力持仓统计") Then fd = True
        If fd Then
            If sr <> "" Then
                If InStr(sr, "─") = 0 And InStr(sr, "━") = 0 Then
                    If InStr(sr, "【") Then
                        Range("a1") = sr
                    Else
                        l = l + 1
                        z = UBound(Split(sr, "│"))
                        ReDim Preserve arr(0 To z, 1 To l)
                        For i = 0 To z
                           arr(i, l) = Trim(Replace(Split(sr, "│")(i), "-", ""))
                        Next
                    End If
                End If
            Else
                Exit Do
            End If
        End If
    Loop
    Close #1
    Range("a2").Resize(UBound(arr, 2), z + 1) = Application.Transpose(arr)
End Sub

[ 本帖最后由 office2008 于 2009-4-30 18:02 编辑 ]

dcw0402

真高,向你学习

天宇130

多谢

天宇130

由于股票总数量有1500多只,我想通过以上代码可以实现批量提取码?

想要实现的效果:
1.批量提取"主力持仓统计"数据
2.在提取完毕后进行1500多只股票数据的汇总(效果如附件"数据汇总")

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
或者:能否直接提取把数据生成各机构"数据汇总"样式("数据汇总"样式见附件;一共有7个,样式都是一样的)
附件.rar (283.33 KB, 下载次数: 118)

2009-5-4 15:45 上传

点击文件名下载附件

高手辛苦了...

天宇130

由于股票总数量有1500多只,我想通过以上代码可以实现批量提取码?

想要实现的效果:
1.批量提取"主力持仓统计"数据
2.在提取完毕后进行1500多只股票数据的汇总(效果如附件"数据汇总")

/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
或者:能否直接提取把数据生成各机构"数据汇总"样式("数据汇总"样式见附件;一共有7个,样式都是一样的)

office2008

第一点
Sub yy()
    Dim sr As String, fd As Boolean, l As Integer, i As Integer
    Dim arr() As String, z As Integer
    Range("a2:j10000").Clear
    oPath = ThisWorkbook.Path & "\"
    Filename = Dir(oPath & "*.txt")
    Do While Filename <> ""
        Open oPath & Filename For Input As #1
        Do While Not EOF(1)
            Line Input #1, sr
            If InStr(sr, "主力持仓统计") Then fd = True
            If fd Then
                If sr <> "" Then
                    If InStr(sr, "─") = 0 And InStr(sr, "━") = 0 Then
                        If InStr(sr, "【") Then
                            Range("a1") = sr
                        Else
                            l = l + 1
                            z = UBound(Split(sr, "│"))
                            ReDim Preserve arr(0 To z, 1 To l)
                            For i = 0 To z
                                arr(i, l) = Trim(Replace(Split(sr, "│")(i), "-", ""))
                            Next
                        End If
                    End If
                Else
                    Exit Do
                End If
            End If
        Loop
        l = l + 2
        fd = False
        Close #1
        Filename = Dir()
    Loop
    Range("a2").Resize(UBound(arr, 2), z + 1) = Application.Transpose(arr)
End Sub

第二点
能否转2003版，我没装2007版，不知道"数据汇总"样式

[ 本帖最后由 office2008 于 2009-5-4 23:16 编辑 ]

天宇130

附件.rar (271 KB, 下载次数: 236)

2009-5-4 23:56 上传

点击文件名下载附件

高手辛苦了

office2008

我没全看懂，后面汇总我帮你做，前面又是怎么回事？  
1，把不同的TXT文件的 主力持仓统计 汇总到不同的 EXCEL表上 ？ 表格名称改为文件名？
2，就 主力持仓统计 一个项目吗？ 还是还有其他项目呢？
3，你能否详细一点？

天宇130

1.现在按您给我的最新代码就可以解决汇总前面的问题了，数据直接统一提到一个电子表里（我已经试过了，1000多个文件数据一下都提进去了）；
注：希望能够在每只股票数据上方标上过票代码（图例请看附件==》数据提取==》红色区域）
    标出股票代码主要是为了分辨数据是哪只股票的！

2.近期先不考虑其他项目，主要是提取【主力持仓统计】数据；

3.图例：如下；
报告期          20090331    20081231    20080930     20080630    20080331
基金持仓     83596.37      61501.42     42900.77      43440.72     60585.97 ==》股票数量                     
占流通比(%)       30.02                 22.09                   20.00            20.28              34.49    ==》占流通比

注：数据汇总时只汇总“占流通比(%)”这行数据；

解释：我主要是想按不同机构（六大机构包括：基金、QFII、券商、社保、保险、信托）和主力持仓总计，
      六个机构和机构总计共7类数据分别汇总到各自的电子表格中（分类请看附件，已经分好共7个电子表格）

注意：每只股票“报告日期”不是统一的，有的股票是最新季度数据日期为“2009-03-31”，有的还没有更新季报数据，日期可能为“2008-12-31”，或者“报告日期”更往前，而且后期还会出新的季报、年报等数据，所以希望您考虑一下后期的扩展性；

汇总样式请看附件里的”基金数据汇总“，如果对应日期没有数据就空着。。。

高手辛苦了！

附件： 附件0505.rar (238.86 KB, 下载次数: 119)

2009-5-6 00:12 上传

点击文件名下载附件