[VB.NET]转word问题
2008-12-27 14:00
246 查看
<script type="text/javascript"><!--
google_ad_client = "pub-8333940862668978";
/* 728x90, 创建于 08-11-30 */
google_ad_slot = "4485230109";
google_ad_width = 728;
google_ad_height = 90;
//-->
</script>
<script type="text/javascript"
src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
</script>
转word问题
转word问题代码如下:
''总是提示被呼叫方拒绝接收呼叫。 (异常来自 HRESULT:0x80010001 ''(RPC_E_CALL_REJECTED))
Dim wordApp As New Word.Application
Dim myDoc As Word.Document
Dim oTable As Word.Table
Dim rowIndex, colIndex As Integer
Dim leap_xlApp As New Excel.Application
Dim li_rowIndex, li_colIndex As Integer
Dim Lo_column As DataGridViewColumn
Dim i, j As Integer
rowIndex = 1
colIndex = 0
wordApp.Documents.Add()
myDoc = wordApp.ActiveDocument
''Dim Table As New DataTable
''Table = CreaTable()
''myDoc.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:=5, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:=wdAutoFitFixed)
System.Threading.Thread.Sleep(1000)
oTable = myDoc.Tables.Add(Range:=myDoc.Range(Start:=0, End:=0), NumRows:=as_dgv.Rows.Count + 1, NumColumns:=as_dgv.Columns.Count)
For Each Lo_column In as_dgv.Columns
If Lo_column.Visible Then
colIndex = colIndex + 1
oTable.Cell(1, colIndex).Range.InsertAfter(Lo_column.HeaderText)
End If
Next
''得到的表所有行,赋值给单元格
For i = 0 To as_dgv.Rows.Count - 1
li_rowIndex = li_rowIndex + 1
li_colIndex = 0
For j = 0 To as_dgv.Columns.Count - 1
If as_dgv.Rows(i).Cells(j).Visible Then
li_colIndex = li_colIndex + 1
oTable.Cell(rowIndex, colIndex).Range.InsertAfter(as_dgv.Rows(i).Cells(j).Value.ToString)
End If
Next
Next
oTable.Borders.InsideLineStyle = 1
oTable.Borders.OutsideLineStyle = 1
wordApp.Visible = True
__________________________________________________________________________
怎么没人知道?
__________________________________________________________________________
继续郁闷!!!!
__________________________________________________________________________
???
__________________________________________________________________________
相关文章推荐
- [VB.NET]下拉列的问题
- [VB.NET]我的问题集 关于.net中的杂交问题
- [VB.NET]listview问题
- [VB.NET]vs.net 2005 打包问题
- [VB.NET]font属性重要问题 在线等!
- [VB.NET]文件读写问题
- [VB.NET]vb.net中 listbox 问题
- [VB.NET]请教:数据库逆向查询问题
- [VB.NET]数据库表的初始化问题
- Word组件 Spire.Doc 教程:如何在C#,VB.NET中将XML转换为PDF
- [VB.NET]VB.net 读写ini的问题,希望好心人贡献下时间,帮忙解决下~~
- [VB.NET]vb.net启用xp样式问题?
- VB.NET中时间转换问题
- 章鱼哥出品—VB.NET DataGridView绑定数据源 "与货币管理器的位置关联的行不能设置为不可见" 问题的解决
- [VB.NET]请教:VB.NET中文件写入问题!!
- [VB.NET]checkedlistbox 用法问题
- [VB.NET]一个有关“fileinfo”的问题,请教~~
- [VB.NET]VB判断Integer为空问题
- [VB.NET]问一个键盘的模拟问题,如何做一个画面键盘来代替微软的软键盘,有点难度呀!!!
- [VB.NET]请教!!!关于DateTimePicker的问题....