請教各位老師: vfp調用 excel 繁簡轉換問題,謝謝!!

Question

操作環境: win10, vfp9.0,  excel2003, excel2010

Vfp代码,将word文檔繁转简成功,但用在Excel文檔时出错,请求高手指点,谢谢!!

*代碼如下:

clear

 set safe off 

       *设定对象

           oExcel=CreateObject('Excel.Application') &&  

           oExcel.DisplayAlerts=.t.    &&          

  * 打开对象   

           oExcel.Workbooks.Open('D:\518D\xls\Temp.xlsx') &&          

           oExcel.Worksheets("sheet1").Activate &&激活表 

           oExcel.Visible=.F.                  

             *word繁转简,简轉繁都成功

             * oWord.WordBasic.ToolsTCSCTranslate(0,0,0)  && 繁转简 正确

             * oWord.WordBasic.ToolsSCTCTranslate(0,0,0)  && 简轉繁 正確

 

           *excel 繁转简 出錯  (整份工作表繁转简)        

       oExcel.ExcelBasic.ToolsTCSCTranslate(0,0,0)  &&  此行代码出错2021-01-04  

         *简轉繁 出錯

    oExcel.ExcelBasic.ToolsSCTCTranslate(0,0,0)  &&此行代码出错2021-01-04

 

         oExcel.DisplayAlerts=.f.    && 

         * oExcel.save

          oExcel.ActiveWorkbook.Save

          oExcel.Workbooks.Close

          oexcel.quit

          RELEASE oexcel            

                

    set safe on  

   RETURN

Answer 1

对不起，我的错

oWord=Createobject("Word.Application")

 oWord.Documents.Add()

 nExcelRows=oExcel.ActiveSheet.UsedRange.Rows.Count
        nExcelCols=oExcel.ActiveSheet.UsedRange.Columns.Count

for i=1 to nExcelRows

for j=1 to nExcelCols

LcTempValue=oExcel.cells(i,j).value

if vartype(LcTempValue)="C"

oWord.ActiveDocument.Range.Text=LcTempValue

oWord.WordBasic.ToolsSCTCTranslate(0,0,0)

oExcel.cells(i,j).value=oWord.ActiveDocument.Range.Text

endif

endfor

endfor