VB 中OLE 加载 Word 文档,如何不显示Word菜单
Dim recWord As ObjectDim recDocument As Word.DocumentDim mMenuBar As CommandBarSet recWord = NothingIf (recWord Is Nothing) ThenSet recWord = CreateObject("word.application")End IfSet mMenuBar = recWord.Application.CommandBars("Menu Bar")mMenuBar.Controls(1).CommandBar.visible=false'屏蔽掉第一项菜单,以后的菜单同理即可
VB OLE中显示EXCEL sheet问题
Private Function readExcel(ByVal index As Integer) As DataTableDim ExcelConn As New OleDbConnectionTryDim connstr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _"Data Source=" &; 你的xls文件路径 & ";Extended Properties=""Excel 8.0;HDR=YES;"""ExcelConn.ConnectionString = connstrExcelConn.Open()Dim dt As DataTable = ExcelConn.GetOleDbSchemaTable(OleDbSchemaGuid.Tables, Nothing)If dt Is Nothing ThenarrayListlog.Add("Error on readExcel : SchemaGuid can not read.")End IfDim dr As DataRow = dt.Rows(0)Dim sheetName As String = dr("TABLE_NAME").ToString()Dim cmdText As String = "Select * from [$" & sheetName & "]"Dim excelAdpt As New OleDbDataAdapter(cmdText, connstr)Dim ds As New DataSetexcelAdpt.Fill(ds)Return ds.Tables(0)Catch ex As ExceptionableToUpload = FalsearrayListlog.Add("Error on readExcel : " & ex.Message)Return NothingFinallyExcelConn.Close()ExcelConn.Dispose()End TryEnd FunctionsheetName 可以改的。
通过更改dt.rows(index) 在这里放的是。
。
。
Dim dr As DataRow = dt.Rows(0) 。
。
。
也就是第一个sheet 这个function 可以return 一个 datatable
vb 打开的WORD如何在窗体上显示(跪求)
1)Word为OLE自动化提供一种称为“Basic”的对象,要在VB中控制Word ,首先要定义一个引用Word中“Basic”对象的对象变量:Dim Wordobj as Object (2)将Word 中的“Basic”对象赋给该对象:Set Wordobj=CreateObject("Word.Basic") (3)可以使用大多数WordBasic语句和函数控制Word或Word文档,使用方法和在Word宏中使用WordBasic指令的方法基本相同。
(4)关闭Word:Set Wordobj =Nothing。
注意:“Basic”对象不支持关闭它自己的一个方法。
即若在OLE自动化中关闭了Word,则对象被置为Nothing,便不能再对对象进行操作,程序出错。
VB显示数据库中存为二进制数据的图片和WORD
我以前用vb做excel的时候,会发现同时有n多个excel的进程在后台运行,一定得随用随释放才行。
不知道这是不是你面临的问题。
excel我用的不多, 我曾经在word中拆分单元格, 用Rows.Item(x).Cells.Split(按行拆分)就会出错,提示有纵向合并的单元格,无法拆分 后来用Columns.Item(x).Cells.item(y).split(按列对行进行循环拆分)程序通过。
所以建议你缩小范围,或换种方式合并。
asp.net怎样读取Access的ole对象?
我将我的商用《旅行社管理系统》的 发团通知 部分奉献给您,望对您有所帮助。
procedure TFrmMain.N327Click(Sender: TObject);varFWord :Variant;FDoc :Variant;strSQL :string;begin//首先创造对象,如果出现异常就做出提示try FWord := CreateOleObject('Word.Application'); //WOrd程序的执行是否可见,值为false时,程序在后台运行。
FWord.Visible := True;except messagebox(0,'创建word对象失败!','警告',MB_OK+MB_ICONINFORMATION); exit;end;strSQL :='select * From "B_T_Company_Infor"';with dm.ClientDataSet_Temp dobegin if Active then Active:=False; CommandText:=strSQL; Open;end;//现在打开的Word中,创建一个新的页面,然后在其中键入需要的内容try FDOC :=FWord.Documents.Add; {对于Word的新页面} FWord.Selection.Font.Name :='宋体'; FWord.Selection.Font.Size :=20; FWord.Selection.Font.Bold :=2; FWord.Selection.paragraphs.Alignment := wdAlignParagraphCenter; FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph; FWord.Selection.paragraphs.Alignment := wdAlignParagraphLeft; FWord.Selection.Font.Size :=12; FWord.Selection.Font.Bold :=0; FWord.Selection.TypeText(' 现将我社组团部的'); FWord.Selection.TypeText(' '); FWord.Selection.TypeText('团计划发出,各地请按下列行程做接待,并及早落实'+'团队计划和选派优秀导游员。
各地代订住宿、火车票、机票务必安排好接待,日程'+'如有变更,及时与下站接待社或本社联系,各地接团时请举【'+ dm.ClientDataSet_Temp.Fields[0].AsString+'】接站牌。
'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('请速回传真确认,谢谢合作!'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('人数:'); FWord.Selection.TypeText('人数:'); FWord.Selection.TypeText('国籍:'); FWord.Selection.TypeText('国籍:'); FWord.Selection.TypeText('等级:'); FWord.Selection.TypeText('等级:'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('这里是团队安排'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('TO: '); FWord.Selection.TypeText('12345678901234567890'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('TEL: '); FWord.Selection.TypeText('12345678901234567890'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('FAX: '); FWord.Selection.TypeText('12345678901234567890'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('______________________________________________'); FWord.Selection.Typeparagraph;//换行 FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('FROM: '); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[0].AsString); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('TEL: '); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[3].AsString); FWord.Selection.Typeparagraph;//换行 FWord.Selection.TypeText('FAX: '); FWord.Selection.TypeText(dm.ClientDataSet_Temp.Fields[4].AsString); FWord.Selection.Typeparagraph;//换行Except on e: Exception do Messagebox(0,Pchar(e.Message),'警告',MB_OK+MB_ICONINFORMATION);end;//保存文档FWord.Caption := '组团计划保存在: '+ExtractFilePath(application.ExeName)+'Reports\GroupPlan.doc';FDOC.SaveAS(ExtractFilePath(application.ExeName)+'Reports\GroupPlan.doc');if messagebox(0,'组团计划已经保存成功!'+chr(13)+chr(13)+'单击【确定】退出Word,返回到程序中!','您确信要退出Word吗?',MB_YESNO+MB_ICONINFORMATION+MB_DEFBUTTON2)=IDYES thenbegin FWord.Quit; FWord := Unassigned;end;end;-----------------------------Delphi与Word之间的融合技术(1)一、VBA代码含义Microsoft Word是一个集成化环境,是美国微软公司的字处理系统,但是它决不仅仅是一个字处理系统,它集成了Microsoft Visual Basic,可以通过编程来实现对Word功能的扩展。
Microsoft Visual Basic在word中的代码即Word的宏,通过编写Word宏,可实现一些文档处理的自动化,如实现文档的自动备份、存盘等,可扩展Word文档的功能,因此,能够充分利用Word的特性,甚至使Word成为自己软件的一部分。
Word的宏既有有利的一部分,因为它能够帮助我们实现文档的自动化,但是Word的宏也不是纯粹的有利,有时它可能危害我们的文档、计算机系统甚 至网络,从最开始的Taiwan NO1宏病毒到现在的Melissa宏病毒,从最开...
VB已读取到数据库数据,如何将数据写入Excel表(OLE控件)的某...
可对Ole控件关联对象的Excel表格的单元格的Value 属性赋值来写入VB已读到的数据。
Value 属性,返回或设置一个Variant型数,它指定该属性之值,此属性可读/写。
以下是实现代码:Option Explicit Dim oBok As Object '定义oBok为Object 数据类型Private Sub Command1_Click() OLE1.CreateLink "C:\zhang2012.xls" '打开要写入的Excel表 Set oBok = OLE1.object '将对象引用赋给变量或属性。
oBok.Sheets(1).Range("A1").Value = "VB已读取到数据库数据" '将数据写入Excel表的A列第一行 Set oBok = Nothing '使用 Nothing 关键字被将对象变量从实际对象中分离开来。
End SubObject 变量存储为 32 位(4 个字节)的地址形式,其为对象的引用。
利用 Set 语句,声明为 Object 的变量可以赋值为任何对象的引用。
注意 虽然以 Object 类型声明的变量足以适应包含对各种对象的引用,但是绑定到变量引用的对象总是在晚期(运行时)绑定。
要强迫在早期(编译时间)绑定的话,须将对象的引用赋值给用特定类名称声明的变量。
使用 Nothing 关键字被将对象变量从实际对象中分离开来。
要使用 Set 语句将 Nothing 赋值给对象变量。
例如:Set MyObject = NothingSet 语句,将对象引用赋给变量或属性。
...
哪位高手告诉我下VB中Rich TextBox的详细用法,尤其是传输图像那部...
RichTextBox 控件不仅允许输入和编辑文本,同时还提供了标准 TextBox 控件未具有的、更高级的指定格式的许多功能。
语法 RichTextBox 说明 RichTextBox 提供了一些属性,对于本控件文本的任何部分,用这些属性都可以指定格式。
为了改变文本的格式,首先要选定它。
只有选定的文本才能赋予字符和段落格式。
使用这些属性,可把文本改为粗体或斜体,或改变其颜色,以及创建上标和下标。
通过设置左右缩进和悬挂式缩进,可调整段落的格式。
RichTextBox 控件能以 rtf 格式和普通 ASCII 文本格式这两种形式打开和保存文件。
可以使用控件的方法(LoadFile 和 SaveFile)直接读写文件,或使用与 Visual Basic 文件输入/输出语句联结的、诸如 SelRTF 和 TextRTF 之类的控件属性打开和保存文件。
通过使用 OLEObjects 集合,RichTextBox 控件支持对象的嵌入。
插入到控件中的每个对象,都代表 OLEObject 对象。
用这样的控件,就可以创建包含其它文档或对象的文档。
例如,可创建这样的文档,它有一个嵌入的 Microsoft Excel 电子数据表格、或 Microsoft Word 文档、或其它已在系统中注册的 OLE 对象。
为了把一个对象插入到 RichTextBox 控件中,只需简单地拖动一个文件(例如 在Windows 95“资源管理器”中的拖动),或拖动的是另一应用程序(如 Microsoft Word)所用文件的一个突出显示的区域,然后将所拖内容直接放入控件。
RichTextBox 控件支持 OLE 对象的剪贴板和 OLE 拖/放操作。
从剪贴板中粘贴进一个对象时,它被插在当前插入点处。
一个对象被拖放到控件时,插入点将跟踪着鼠标光标的移动,直至鼠标按钮释放时该对象即被插入。
这种行为和 Microsoft Word 的一样。
使用 SelPrint 方法,可以打印 RichTextBox 控件的全部或部分文本。
因为 RichTextBox 是一个数据绑定控件,通过 Data 控件可以把它绑定到 Microsoft Access 数据库的 Binary 或 Memo 字段上,也可把它绑定到具有相同容量的其它数据库字段上(例如 SQL 服务器中的 TEXT 数据类型的字段)。
标准 TextBox 控件用到的所有属性、事件和方法,RichTextBox 控件几乎都能支持,例如 MaxLength、 MultiLine、 ScrollBars、 SelLength、 SelStart 和 SelText。
对于那些可以使用 TextBox 控件的应用程序,也可以很容易地使用 RichTextBox 控件。
而且,RichTextBox 控件并没有和标准 TextBox 控件一样具有 64K 字符容量的限制。
发行注意 为了能在应用程序中使用 RichTextBox 控件,必须把Richtx32.ocx 文件添加到工程中。
因此,在应用程序发行时,Richtx32.ocx 文件就应安装在 Microsoft Windows 的 SYSTEM 目录内。
有关怎样把自定义控件添加到工程中的详细内容,请参阅《程序员指南》。
转载请注明出处51数据库 » vb ole显示word