国家标准报备格式转MAPGIS图形插件

源码：

Sub CreateLine()
    Dim DataCovType As String
    ……
    Dim wkbSubObj As Workbook
    Dim xlSheet As Excel.Worksheet
    PathA = Application.ActiveWorkbook.FullName
    Path = Application.ActiveWorkbook.Path
    MySheetName = Application.ActiveWorkbook.ActiveSheet.Name
    sr = Cells.SpecialCells(xlCellTypeLastCell).Row
    sc = Range("iv2").End(xlToLeft).Column
    Dim PathWL As String
    Dim LineName As String
    Dim LinAi As New LinArea
    Dim PntAi As New PntArea
    ……

End Sub

成果概述：

>>功能：实现国家标准报备格式（XLS文件）到MAPGIS面文件的转换；

>>运行环境：windowsXP/win7/win10

>>扩展：可查询结点位置并纠错；

>>使用说明：把程序文件“PRO.XLS”拷贝到需要转换的文件目录下，打开“PRO.XLS”，按“ALT+F8”运行程序；

>>注意事项：转换目录下除了程序文件“PRO.XLS”和需要转换的文件，不要放置其他文件