ZKX's LAB

100分请教,VB中的OLE拖放,如有实例追加到500分 vb 进程内ole服务器

2021-04-08知识4

不用ole, 如何在VB中建立的EXCLE OLE中读取本地盘上的已经存在的EXCLE文件内容,只要读取SHEET1!在线等待!谢谢 不用ole, 引用excel dim xls as new excel.application 。

vb 在vb中用ole嵌入了一个.EXE文件,用savetofile保存出来后内容就变了 你打开文件的方式是文件文件,当然要改变了。用VB操作EXCEL 先建立文件系统和文对象。用VB操作EXCEL示例代码Private Sub Command3_Click()On Error GoTo err1Dim i As LongDim j As LongDim objExl As Excel.Application '声明对象变量Me.MousePointer=11 '改变鼠标样式Set objExl=New Excel.Application'初始化对象变量objExl.SheetsInNewWorkbook=1 '将新建的工作薄数量设为1objExl.Workbooks.Add'增加一个工作薄objExl.Sheets(objExl.Sheets.Count).Name=\"book1\"'修改工作薄名称objExl.Sheets.Add,objExl.Sheets(\"book1\")‘增加第二个工作薄在第一个之后objExl.Sheets(objExl.Sheets.Count).Name=\"book2objExl.Sheets.Add,objExl.Sheets(\"book2\")‘增加第三个工作薄在第二个之后objExl.Sheets(objExl.Sheets.Count).Name=\"book3objExl.Sheets(\"book1\").Select '选中工作薄For i=1 To 50'循环写入数据For j=1 To 5If i=1 ThenobjExl.Selection.NumberFormatLocal=\"@\"'设置格式为文本objExl.Cells(i,j)=\"E\"&i&jElseobjExl.Cells(i,j)=i&jEndIfNextNextobjExl.Rows(\"1:1\").Select '选中第一行objExl.Selection.Font.Bold=True '设为粗体。

vb中ole用法 我想用ole调用一个word文件 主要想法是这样的 一个按钮 点击 出现doc中的表格内容 不知道可以不可以直接用label来实现 请说明下具体的操作 新手才看 谢了 用。

#vb 进程内ole服务器

随机阅读

qrcode
访问手机版