Sub Macro1() ' ' Macro1 Macro 'Workbooks.Open Filename:= _ '"C:Documents and Settingsanmin.fu桌面FX12、长期应收款0.xls" Dim inbook As String 'Dim insheet As String   ...
;*Usage:根据参考对照txt文件对栅格数据进行重新编码 ;参考文件---Ref_file ;参考文件中的line数目---line_num ;栅格文件---LC_img(为envi standard file) ;输出文件---outfile pro LCLU_ID_Transform,ref_file,line_num,LC_img,outfile temp=' ' ;*get the Ref-file in openr,lun1,ref_file,/get ...
;**生物量计算 Sub fileOperation() Dim inbook As String Dim insheet As String Dim i As Integer Dim outbook As String Dim outsheet As String 'Create Excel file that as the book name a ...
Sub Readtable() Dim filename As String Dim filenum As Long Dim fileslist As String Dim outfile As String Dim outfile_log As String outfile = I:综合整理结果20100525-2其它各省1257省 ...
Sub LoadToRasterColumn(pTable As ITable, oid As Long, pRasterDs As IRasterDataset) 'This procedure load pRasterDs to the raster field of the row with objectid 'of oid in a table pTable Dim pRow As IRow Dim iRaster As Integer 'id for raster column Dim ...