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 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省 ...
博文
视频
基金
相册
收藏
积分
会议