怎么把Vb的随机记录文件转换成word文件!(表格形式) 问问盖次吧。他会告诉你的。WORD 格式属于微软专用的,是无法知道它的格式的。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 vb 不是跟office 结合得很好吗?我看别人做的软件可以把记录导出成world 或excel格式怎么做的? 嵌入VBA代码,应该可以实现。 我的程序:Dim wordApp As Word.ApplicationSet wordApp = New Word.ApplicationwordApp.Documents.Add DocumentType:=wdNewBlankDocumentWith wordApp.ActiveDocument.PageSetup If rsModel.RecordCount > 10 Then .Orientation = wdOrientLandscape Else .Orientation = wdOrientPortrait End If .TopMargin = CentimetersToPoints(2) .BottomMargin = CentimetersToPoints(2) .LeftMargin = CentimetersToPoints(2) .RightMargin = CentimetersToPoints(2)End WithWith wordApp'****************************************************************'添加word文档的基本内容(标题,日期)'**************************************************************** .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter .Selection.Font.Name = "楷体_GB2312" .Selection.Font.Size = 20 .Selection.Font.Bold = wdToggle .Selection.TypeText Text:="维修机修理状况统计表" .Selection.TypeParagraph .Selection.Font.Size = 9 .Selection.Font.Name = "宋体" .Selection.Font.Bold = wdToggle .Selection.TypeText Text:="文件编号:Q/HJPDD385 到货日期:" & dtpSetDate.Valueend with 初学VB,想找个高手中的高手带一下 暂停打印机和恢复打印怎么实现?!在线等,急,立即给分! 关于数据库的文本处理?? 高分!问大家一个难题,能帮忙的一定要帮我啊!!! 送分的问题:100分 来者有分,先来先得。 VB6.0在WIN2K上的100%CPU问题?(两个教授不能回答的问题,请问有哪位实战高手能了难?) 烦!散分! 在VB中怎样实现移位操作?? 在用户自定义控件中使用Implements语句时出错,请大家帮助 急!急!急!关于printer的打印问题 如何得到控件的zorder顺序,包括无句饼的控件,因此不能使用api 有谁知道帮助文件的格式是怎样的(.hlp)?
我看别人做的软件可以把记录导出成world 或excel格式怎么做的?
If rsModel.RecordCount > 10 Then
.Orientation = wdOrientLandscape
Else
.Orientation = wdOrientPortrait
End If
.TopMargin = CentimetersToPoints(2)
.BottomMargin = CentimetersToPoints(2)
.LeftMargin = CentimetersToPoints(2)
.RightMargin = CentimetersToPoints(2)
End WithWith wordApp
'****************************************************************
'添加word文档的基本内容(标题,日期)
'****************************************************************
.Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
.Selection.Font.Name = "楷体_GB2312"
.Selection.Font.Size = 20
.Selection.Font.Bold = wdToggle
.Selection.TypeText Text:="维修机修理状况统计表"
.Selection.TypeParagraph
.Selection.Font.Size = 9
.Selection.Font.Name = "宋体"
.Selection.Font.Bold = wdToggle
.Selection.TypeText Text:="文件编号:Q/HJPDD385 到货日期:" & dtpSetDate.Value
end with