vb里面生成一个excel对象。高手指点！

Question

vb里面好像没有录制宏吧。来的话。我在线：qq：1499026

Answer 1

具体程序是
dim vbexcel as excel.application 
dim xlbook as excel.workboos '定义工作簿对象
dim xlsheet as excel.worksheet '定义工作表
set vbexcel = createobject("excel.application")

Answer 2

这样的话是将excel调出来。而不是让excel嵌入form中。加我qq：1499026讨论一下好吗？我遇到了一个问题。你看怎么解决？

Answer 3

Set xlapp = CreateObject("excel.application")
Set xlbook = xlapp.Workbooks.Open(App.Path & "\word\jgb1.xls")
Set xlsheet = xlbook.Worksheets(1)
xlapp.Visible = TrueDim cell1, cell2
Set cell1 = xlsheet.Cells(1, 1)
Set cell2 = xlsheet.Cells(17, 12)
With xlsheet.Range(cell1, cell2).Borders
.LineStyle = xlContinuous
.Weight = xlThin
End Withxlsheet.Range("A1:L1").MergeCells = True
xlsheet.Cells(1, 1) = "企业基本信息"xlsheet.Range("A2:C2").MergeCells = True
xlsheet.Range("D2:L2").MergeCells = True
xlsheet.Cells(2, 1) = "企业名称"
xlsheet.Cells(2, 4) = fenfen3 
.
.
.
.xlsheet.Range("A17:C17").MergeCells = True
xlsheet.Range("D17:L17").MergeCells = True
xlsheet.Cells(17, 1) = "企业简介" 
xlsheet.Cells(17, 4) = Text1(24).Text xlsheet.Range(cell1, cell2).HorizontalAlignment = xlLeft
Dim yy As String
Dim yyy As String
yy = Format$(Now, "yyyy-mm-dd")
yyy = Format$(Now, "hh-mm-ss")
xlsheet.SaveAs App.Path & "\word\" & "企业基本信息" & yy & yyy & ".xls"

Answer 4

这样的话是将excel调出来,而不是让excel嵌入form中.我需要的是将excel嵌入到form里面。

Answer 5

可以从execl中读数据到form的表格中，不也一样的效果吗?

Answer 6

在部件里面选择“MicroSoft Office Web Compenents 9.0”或者“MicroSoft Office XP Web Compenents 9.0”，要看你装的office的哪个版本而定，部件引用好后，看到没？？所有的office对象都在左边的控件箱内了，把Spreadsheet放置到窗体上就ok了，隐藏工具栏：
Spreadsheet1.DisplayPropertyToolbox = false 
具体的你点击右键，看他的属性框设定。

Answer 7

是：MicroSoft Office XP Web Compenents，如果装了xp的话，两个都会显示，呵呵。

Answer 8

现在有一个规划求解的问题。我现在搞不出他的算法。
但是excel里面有个规划求解的现成的工具，是根据excel里面的行和列来求
最小最大解的。我已经在excel里面把那个问题解决了。现在想集成到程序里面
，你看怎么解决？

Answer 9

我没怎么用过excel的工具，你是指求一行或者一列的最大最小值吗？？表内支持公式的。

Answer 10

我也不会嵌入，但可以将你想要得数据读出来，在写入到form。