如何将excel嵌入word(如何将Excel嵌入到VB中)

1. 如何将Excel嵌入到VB中

测试成功，原码：DimxlappAsExcel.Application'Excel对象DimxlbookAsExcel.Workbook'工作簿DimxlsheetAsExcel.Worksheet'工作表DimxlrangeAsExcel.rangePrivateSubCommand1_Click()Setxlapp=CreateObject("excel.application")'第一层Setxlbook=xlapp.Workbooks.Addxlapp.Visible=Truexlbook.sheets(1).range("a1")="新建成功"xlbook.SaveAsApp.Path&"/测试.xls"xlbook.CloseEndSub

2. 用vbs把内容写入excel

dim xlApp,xlWorkBook,xlSheetdim iRowCount,iLoop,numAddset xlApp = CreateObject(Excel.Application)xlApp.Visible = falseset xlWorkBook = xlApp.Workbooks.Open(c:\data.xls)set xlSheet = xlWorkBook.Sheets(Sheet1)iRowCount = xlSheet.usedRange.Rows.CountFor iLoop = 2 to iRowCountnumAdd=xlSheet.Cells(iLoop,1)+numAddnextxlSheet.Range(e2).value=iLoopFor i=1 to 10xlSheet.range(d & i).value=int(rnd*1000)nextxlApp.cells(9,9)=995xlWorkBook.SavexlWorkBook.ClosexlApp.Quitset xlSheet = Nothingset xlWorkBook = Nothingset xlApp = Nothingmsgbox(numAdd)

追问 : 额，本人新手，变量name和变量mark在这里分别是什么变量？

3. 用vb做excel外接程序

可以使用以下代码在EXCEL上使用VBA连接MYSQL数据库 ：

Dim strconnt As String strconnt = "" Set connt = New ADODB.Connection Dim sevip, Db, user, pwd As String '设服务器地址、所连数据，及登录用户密码 sevip = "localhost" Db = “test" user = "root" pwd = "123456" strconnt = "DRIVER={MySql ODBC 5.3 Unicode Driver};SERVER=" & sevip & ";Database=" & Db & ";Uid=" & user & ";Pwd=" & pwd & ";Stmt=set names GBK" connt.ConnectionString = strconnt connt.Open

4. vb怎么将数据导入到excel中

Public Sub Copy()

Range("A1:C10").Select '复制的区域,自行修改

Selection.Copy '复制

Workbooks(2).Activate '激活第二个BOOK

Range("A1").Select '区域,自行修改

ActiveSheet.Paste '粘贴

End Sub

5. vb怎么导入excel

Dim excel As ObjectSet excel = CreateObject("excel.application") '设定 excel API'--------------这上面可不看 照抄excel.workbooks.Open ("C:\book.xls") 'P.s请先自己创立 'excel 开启excel.Visible = True 'excel 显示 or 隐藏 (True of Falseexcel.cells(1,2)="测试"text1 = excel.cells(1,2) 'text1 读取excel.ActiveWorkbook.Save 'excel 存档excel.quit 'excel 关闭

6. vb将数据写入excel

VB6直接读取WPS的电子表格的数据是不行的。但可以读取Excel的表格数据。你只要将WPS的表格存为EXcel表格即可。

顶一下

(0)

0%

踩一下

(0)

0%