9 个解决方案
#1
你可以用VB直接启动Excel,然后在VB中向它写数据,再在Excel里保存不行吗?
#2
VB里面直接有Excel对象，使用引入功能即可，至于怎么操纵看看Excel中的编程帮助就可以了。
#3
creatobject来创建一个excel应用程序对象，然后新建一个worksheet，然后就可以把数据输入到那里头
#4
、 加 入 打 印 命 令 按 钮(command3)，CAPTION 设 为" 生 成EXCEL 表
格"， 写 入 下 面 代 码
Private Sub command3_Click()
Dim i As Integer
Dim j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
'Set xlBook = xlApp.Workbooks.Add
'On Error Resume Next
Set xlBook = xlApp.Workbooks.Add 'Open("d:\text2.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(6, 1) = "i"
For i = 0 To gridrow
grid1.Row = i
For j = 0 To 6
Grid1.Col = j
If IsNull(Grid1.Text) = False Then
xlSheet.Cells(i + 5, j + 1) = Grid1.Text
End If
Next j
Next i
Exit Sub
用这段代码就可以了!
格"， 写 入 下 面 代 码
Private Sub command3_Click()
Dim i As Integer
Dim j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
'Set xlBook = xlApp.Workbooks.Add
'On Error Resume Next
Set xlBook = xlApp.Workbooks.Add 'Open("d:\text2.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(6, 1) = "i"
For i = 0 To gridrow
grid1.Row = i
For j = 0 To 6
Grid1.Col = j
If IsNull(Grid1.Text) = False Then
xlSheet.Cells(i + 5, j + 1) = Grid1.Text
End If
Next j
Next i
Exit Sub
用这段代码就可以了!
#5
你用的是Crystal Report，在运行中报表显示窗口的工具栏位置有个信封样的图标，点击它，就出现了文件转换窗，可将.RPT文件转换成各种文件格式！
#6
是我问题说的不够清楚，对不起了，各位。我主要是这样的，现在有一个源程序是调用VFP的数据库，生成了.rpt报表文件（是我上一任人编的）而我现在的任务就是把这个程序改为生成EXCEL的报表。大家告诉我有什么办法好吗？就是直接把.rpt生成为.xls文件.
还有，我怎样才能每次进入CSDN就到自己的问题呢？我想给上面几位朋友分数，但不足50分就不能给吗？
还有，我怎样才能每次进入CSDN就到自己的问题呢？我想给上面几位朋友分数，但不足50分就不能给吗？
#7
我也看不明白！你到底是用VB还是VFP解决自己的问题？
“进入CSDN就到自己的问题”好象没办法，只能点击“我的参与”，可列出你提出、答复过的帖子！
“进入CSDN就到自己的问题”好象没办法，只能点击“我的参与”，可列出你提出、答复过的帖子！
#8
用VB编。就是:"把crystal report生成的.rpt报表文件转换成excel的.xls文件“
我原来没有学过VB，所以说不清楚，不好意思了。
我原来没有学过VB，所以说不清楚，不好意思了。
#9
看了我的第一张帖子还是不明白？
你的上一任是用CrystalReport1的话，在运行报表时，报表窗口可工具栏上显示了几种功能键？
你可更改CrystalReport1的属性来观察一下！
你的上一任是用CrystalReport1的话，在运行报表时，报表窗口可工具栏上显示了几种功能键？
你可更改CrystalReport1的属性来观察一下！
#1
你可以用VB直接启动Excel,然后在VB中向它写数据,再在Excel里保存不行吗?
#2
VB里面直接有Excel对象，使用引入功能即可，至于怎么操纵看看Excel中的编程帮助就可以了。
#3
creatobject来创建一个excel应用程序对象，然后新建一个worksheet，然后就可以把数据输入到那里头
#4
、 加 入 打 印 命 令 按 钮(command3)，CAPTION 设 为" 生 成EXCEL 表
格"， 写 入 下 面 代 码
Private Sub command3_Click()
Dim i As Integer
Dim j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
'Set xlBook = xlApp.Workbooks.Add
'On Error Resume Next
Set xlBook = xlApp.Workbooks.Add 'Open("d:\text2.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(6, 1) = "i"
For i = 0 To gridrow
grid1.Row = i
For j = 0 To 6
Grid1.Col = j
If IsNull(Grid1.Text) = False Then
xlSheet.Cells(i + 5, j + 1) = Grid1.Text
End If
Next j
Next i
Exit Sub
用这段代码就可以了!
格"， 写 入 下 面 代 码
Private Sub command3_Click()
Dim i As Integer
Dim j As Integer
Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = True
'Set xlBook = xlApp.Workbooks.Add
'On Error Resume Next
Set xlBook = xlApp.Workbooks.Add 'Open("d:\text2.xls")
Set xlSheet = xlBook.Worksheets(1)
xlSheet.Cells(6, 1) = "i"
For i = 0 To gridrow
grid1.Row = i
For j = 0 To 6
Grid1.Col = j
If IsNull(Grid1.Text) = False Then
xlSheet.Cells(i + 5, j + 1) = Grid1.Text
End If
Next j
Next i
Exit Sub
用这段代码就可以了!
#5
你用的是Crystal Report，在运行中报表显示窗口的工具栏位置有个信封样的图标，点击它，就出现了文件转换窗，可将.RPT文件转换成各种文件格式！
#6
是我问题说的不够清楚，对不起了，各位。我主要是这样的，现在有一个源程序是调用VFP的数据库，生成了.rpt报表文件（是我上一任人编的）而我现在的任务就是把这个程序改为生成EXCEL的报表。大家告诉我有什么办法好吗？就是直接把.rpt生成为.xls文件.
还有，我怎样才能每次进入CSDN就到自己的问题呢？我想给上面几位朋友分数，但不足50分就不能给吗？
还有，我怎样才能每次进入CSDN就到自己的问题呢？我想给上面几位朋友分数，但不足50分就不能给吗？
#7
我也看不明白！你到底是用VB还是VFP解决自己的问题？
“进入CSDN就到自己的问题”好象没办法，只能点击“我的参与”，可列出你提出、答复过的帖子！
“进入CSDN就到自己的问题”好象没办法，只能点击“我的参与”，可列出你提出、答复过的帖子！
#8
用VB编。就是:"把crystal report生成的.rpt报表文件转换成excel的.xls文件“
我原来没有学过VB，所以说不清楚，不好意思了。
我原来没有学过VB，所以说不清楚，不好意思了。
#9
看了我的第一张帖子还是不明白？
你的上一任是用CrystalReport1的话，在运行报表时，报表窗口可工具栏上显示了几种功能键？
你可更改CrystalReport1的属性来观察一下！
你的上一任是用CrystalReport1的话，在运行报表时，报表窗口可工具栏上显示了几种功能键？
你可更改CrystalReport1的属性来观察一下！