该怎么做可以达到目的呢？？？谢谢大家

Question

Dim i, j As Integer
Dim Exl As Variant
 Set Exl = CreateObject("Excel.Application")
Exl.Workbooks.Add
For i = 0 To MSHFlexGrid1.Rows - 1
     For j = 0 To MSHFlexGrid1.Cols - 1
       Exl.Cells(1 + i, j + 1) = MSHFlexGrid1.TextMatrix(i, j)
     Next j
Next i
      DeleteFile ("c:\Documents and Settings\Administrator\My Documents\Resume.xlw")
      DeleteFile ("C:\My Documents\Resume.xlw")
      Exl.SaveWorkspace
      '退出Excel Application
      Exl.Quit
      MsgBox "数据已导出至Excel文件中！                ", vbInformation, "提示"
以上代码是偶将网格控件中的数据导入至一个EXCEL中，而网格控件的第一列即当J=0 时
编号都是  01 、 02 、 03 、、、、
***说明******************
网格中的每一列标题是：
编号  名称   简称   地址
01    A      A       A
02    B      B       B 
03    C      C       C  
、
、
********以上是网格中数据的形式***********
等导入到EXCEL中却变成了 1 、2、 3 、、、
*********导入到EXCEL表中的形式********
编号  名称   简称   地址
 1    A      A       A
 2    B      B       B 
 3    C      C       C  
、
、
***************************************怎么可以让导出后的数据仍为 01、02、03、、、、、、、、
谢谢大家了

Answer 1

可以在execl里设定输出前那些cell的格式
或者format()

Answer 2

dbs.Execute "SELECT *  INTO [Excel 8.0;DATABASE=" & App.Path & "\MyExcel.xls].[WorkSheet1] FROM 表1 "

Answer 3

UP 一下
我现在的想法就是三楼那样的
但在 VB里用什么语句可以设置那些格式啊
有什么属性么？？？

Answer 4

关键是 在 EXCEL 里的
单元格设置如果设置成文本就可以了
但在VB里用什么语句设置啊

Answer 5

你到Excel里面录制宏
就知道了

Answer 6

up nik_Amis(Azrael) 
自己录制宏！
方法很简单
打开EXCEL，工具……》宏……》录制新宏，然后做操作，比如设置单元格格式，操作设置完毕，最后点停止录制，然后工具……》宏……》宏……》选择刚才录制的宏，出现代码窗口，选择sub内的代码，然后复制到VB中要用的地方即可

Answer 7

用下面的语句:
exl.Selection.NumberFormatLocal = "@"

Answer 8

Dim i, j As Integer
Dim Exl As Variant
 Set Exl = CreateObject("Excel.Application")
Exl.Workbooks.Add
For i = 0 To MSHFlexGrid1.Rows - 1
     For j = 0 To MSHFlexGrid1.Cols - 1
       Exl.Cells(1 + i, j + 1).NumberFormatLocal = "@"
       Exl.Cells(1 + i, j + 1) = MSHFlexGrid1.TextMatrix(i, j)
     Next j
Next i
      DeleteFile ("c:\Documents and Settings\Administrator\My Documents\Resume.xlw")
      DeleteFile ("C:\My Documents\Resume.xlw")
      Exl.SaveWorkspace
      '退出Excel Application
      Exl.Quit
      MsgBox "数据已导出至Excel文件中！                ", vbInformation, "提示"