如何在VB中调用EXCEL表格数据?
展开全部 1、打开VB-》在form1上增加一个command1按钮,双击command1按钮,把以下代码放入窗体内; 2、运行前,在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定;然后才可以运行; 3、代码如下: Dim ExApp As New Excel.Application Dim Exb As Excel.Workbook Dim Exsh As Excel.Worksheet Dim arr(6, 6) As Integer '定义一... 1、打开VB-》在form1上增加一个command1按钮,双击command1按钮,把以下代码放入窗体内;2、运行前,在菜单的选“工程”->“引用”->找到Microsoft Excel 12.0 Object Library->确定;然后才可以运行;3、代码如下:Dim ExApp As New Excel.ApplicationDim Exb As Excel.WorkbookDim Exsh As Excel.WorksheetDim arr(6, 6) As Integer '定义一个二维数组,数据类型为整数ExApp.Workbooks.Open "c:\book1.xls" '打开EXEL文件,路径和文件名自己根据实际修改Set Exb = ExApp.Workbooks(1)Set Exsh = Exb.Worksheets("Sheet1")For i = 1 To 6 '假设是读取A1:F6的6X6区域数据For j = 1 To 6arr(i, j) = Exsh.Cells(i, j)Next jNext i'把自己需要对数组数据进一步处理的部分加进去...ExApp.Workbooks.CloseExApp.QuitSet ExApp = Nothing 全部...
请问vb如何访问word中的嵌套表格中的数据?
展开全部 曾经做过些。
复制下来给你参考 我是从XML里读到数据往Word里面替换数据的。
制作一个Word模板,里面可变的内容用{$TITLE}代替 {$TITLE} Dim wordApp As Word.Application Set wordApp = New Word.Application wordApp.Visible = False Dim wordSelection As Word.Selection Dim objDoc As Word.Document Set objDoc = wordApp.Documents.Open("template.doc") Set wordSelection = wordApp.Selection ReplaceChar "{$TITLE}", xmlNode.Text If xmlNodes.Length > 1 Then objDoc.Tables(1).Select Selection.InsertRowsBelow xmlNodes.Length - 1 End If '美化Word文件:去除掉重复的段落标记。
Public Sub ReduceParagraph() '必须写为wordApp.Selection wordApp.Selection.Find.ClearFormatting wordApp.Selection.Find.Replacement.ClearFormatting With wordApp.Selection.Find .Text = "^p^p" .Replacement.Text = "^p" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With wordApp.Selection.Find.Execute Replace:=wdReplaceAll End Sub '直接将全部匹配的标签替换为结果文本。
Public Sub ReplaceChar(ReplacedStr As String, ReplacementStr As String) Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = ReplacedStr .Replacement.Text = ReplacementStr .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll 'Selection.TypeText Text:=ReplacementStr End Sub '从前往后,查找图片标签,然后直接插入图片,图片文件可以本地全路径或者Web全路径。
Public Sub ReplaceImg(ReplacedStr As String, ReplacementStr As String) Selection.Find.ClearFormatting With Selection.Find .Text = ReplacedStr .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=1 Selection.InlineShapes.AddPicture fileName:= _ ReplacementStr, LinkToFile:=False, _ SaveWithDocument:=True End Sub
如何把VB中TEXT数据输出到word模板中的指定位置
展开全部 要把下列内容复制到写字板中,另存为SetWord.cls文件,然后在把它添加到工程中,就可以使用了。
VERSION 1.0 CLASSBEGINMultiUse = -1 'TruePersistable = 0 'NotPersistableDataBindingBehavior = 0 'vbNoneDataSourceBehavior = 0 'vbNoneMTSTransactionMode = 0 'NotAnMTSObjectENDAttribute VB_Name = "SetWord"Attribute VB_GlobalNameSpace = FalseAttribute VB_Creatable = TrueAttribute VB_PredeclaredId = FalseAttribute VB_Exposed = FalsePrivate mywdapp As Word.ApplicationPrivate mysel As Object'属性值的模块变量Private C_TemplateDoc As StringPrivate C_newDoc As StringPrivate C_PicFile As StringPrivate C_ErrMsg As IntegerPublic Event HaveError()Attribute HaveError.VB_Description = "出错时激发此事件.出错代码为ErrMsg属性"'***************************************************************'ErrMsg代码:1-word没有安装 2 - 缺少参数 3 - 没权限写文件' 4 - 文件不存在''***************************************************************Public Function ReplacePic(FindStr As String, Optional Time As Integer = 0) As IntegerAttribute ReplacePic.VB_Description = "查找FindStr,并替换为PicFile所指向的图片文件,替换次数由time参数确定,为0时,替换所有"'********************************************************************************' 从Word.Range对象mysel中查找所有FindStr,并替换为PicFile图像' 替换次数由time参数确定,为0时,替换所有'********************************************************************************If Len(C_PicFile) = 0 ThenC_ErrMsg = 2Exit FunctionEnd IfDim i As IntegerDim findtxt As Booleanmysel.Find.ClearFormattingmysel.Find.Replacement.ClearFormattingWith mysel.Find.Text = FindStr.Replacement.Text = "".Forward = True.Wrap = wdFindContinue.Format = False.MatchCase = False.MatchWholeWord = False.MatchByte = True.MatchWildcards = False.MatchSoundsLike = False.MatchAllWordForms = FalseEnd Withmysel.HomeKey Unit:=wdStoryfindtxt = mysel.Find.Execute(Replace:=True)If Not findtxt ThenReplacePic = 0Exit FunctionEnd Ifi = 1Do While findtxtmysel.InlineShapes.AddPicture FileName:=C_PicFileIf i = Time Then Exit Doi = i + 1mysel.HomeKey Unit:=wdStoryfindtxt = mysel.Find.Execute(Replace:=True)LoopReplacePic = iEnd FunctionPublic Function FindThis(FindStr As String) As BooleanAttribute FindThis.VB_Description = "查找FindStr,如果模板中有FindStr则返回True"
VB可以读取WPS电子表格中的数据吗
'以下代码将在文档最后连续添加3个表格Sub xx()ActiveDocument.Content.SelectDim i As Integer, tb As Table'连续创建3个带表头的表格For i = 1 To 3Selection.InsertAfter "表" & i & vbCrLf '创建一个表头Selection.MoveDown Unit:=wdLine, Count:=1 '选中表头下面一行Set tb = ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=4, NumColumns:=5, DefaultTableBehavior:=1, AutoFitBehavior:=0) '创建一个表格tb.Select '选中表格Selection.MoveDown Unit:=wdLine, Count:=1 '将光标移动到表格下一行NextEnd Sub
转载请注明出处51数据库 » vb word表格数据