在Jason加载井斜时，编写的一段代码。与各位共享

pyangguang1004

最近需要在Jason中加载上百口井的井斜数据，而甲方给的井斜数据是放在数据表中的。本人不才，一时不知道怎么加载了……
想起之前学的一点点VBA知识，耗费了周末一天的时间写了下面这段代码，成功的解决了数据加载的问题。特与各位共享：
Sub Macro1()
   Dim st, ed, fn, i, r
   With Sheets("Sheet1")
        r = .Range("a65536").End(xlUp).Row
        i = 2
        Do While i < r
          st = i
          Do While Cells(i, 1) = Cells(i + 1, 1)
          i = i + 1
          Loop
         ed = i
            With Sheets("Sheet1")
                 fn = Cells(st, 1)
                  .Range(Cells(st, 2), Cells(ed, 5)).Select
                 Selection.Copy
               Workbooks.Add
                 ActiveSheet.Paste
                 Application.CutCopyMode = False
                 Rows("1:1").Select
            Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Range("A1").Select
            ActiveCell.FormulaR1C1 = "MD"
            Range("B1").Select
            ActiveCell.FormulaR1C1 = "TVD"
            Range("C1").Select
            ActiveCell.FormulaR1C1 = "DX"
            Range("D1").Select
            ActiveCell.FormulaR1C1 = "DY"
                 ActiveWorkbook.SaveAs ThisWorkbook.Path & "\" & fn & ".txt", _
                     FileFormat:=xlText, CreateBackup:=False
                 ActiveWorkbook.Close
             End With
          i = i + 1
          Loop
   End With
End Sub

prettyboy

我最近也在弄这方面的东西，请教一下高手，我的每口井都是文本文件，我是把它用代码写成xls格式效率高，还是读取并处理txt格式效率高。

pyangguang1004

prettyboy 发表于 2014-11-23 22:25
我最近也在弄这方面的东西，请教一下高手，我的每口井都是文本文件，我是把它用代码写成xls格式效 ...

随意你的习惯了，同时还要依据甲方给的数据是不是统一。如果甲方给的数据统一的话，我感觉还是按照上面的做法比较快一些。

dgd2009

dgd2009

怎么才能和jason建立起关系

pyangguang1004

dgd2009 发表于 2014-11-24 08:37
怎么才能和jason建立起关系

拖过去，设置一下格式，选择所有文件，批量加载。

prettyboy

pyangguang1004 发表于 2014-11-24 07:30
随意你的习惯了，同时还要依据甲方给的数据是不是统一。如果甲方给的数据统一的话，我感觉还是按照上面的 ...

谢谢！

coverme

数据整理好了，批量还是有问题啊