VB打开并读取WORD,EXCEL文件的方法,急...

[tnt75]

需要两种：
1.在VB程序中直接把指定文件用该文件相关联的程序打开，如C:\1.DOC 在VB中用一个按钮或其他控键点击后，就把相应的该文件用WORD程序打开，弹出WORD程序窗口。
2.把WORD、EXCEL文件内容读取出来显示在相应的控键中，其文件的内容格式任意。

[minajo21]

1.shell "C:\123.doc"
2.引用相应的Application对象

[tnt75]

shell已试过，出错，无效的过程调用或参数；
你有没有相应的Application对象的例子

[jfx]

Set xlApp = CreateObject("Excel.Application")
xlApp.Visible = False
Set xlBook = xlApp.Workbooks.Add
Set xlSheet = xlBook.Worksheets(1)

[minajo21]

1.怎么出错，没装word？
Shell 函数示例
本示例使用 Shell 函数来完成一个用户指定的应用程序。

' 将第二个参数值设成 1，可让该程序以正常大小的窗口完成，并且拥有焦点。
Dim RetVal
RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' 完成Calculator。


2.以Execl为例

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
Dim xlActiveSheet As Excel.Worksheet



Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(VBA.Trim(lblPath.Caption))
Set xlWorksheet = xlBook.Worksheets(strSheetName)
Set xlActiveSheet = xlApp.ActiveSheet

For i = 1 To 9
strFieldName(i) = VBA.Trim(xlBook.Worksheets(strSheetName).Range(strTemp(i)).Value)
Next i

lblTotal.Caption = xlActiveSheet.UsedRange.Rows.count - 1

xlBook.Close
Set xlBook = Nothing
Set xlApp = Nothing
Set xlWorksheet = Nothing
Set xlActiveSheet = Nothing

[ripyu]

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlWorksheet As Excel.Worksheet
Dim xlActiveSheet As Excel.Worksheet



Set xlApp = New Excel.Application
Set xlBook = xlApp.Workbooks.Open(VBA.Trim(lblPath.Caption))
Set xlWorksheet = xlBook.Worksheets(strSheetName)
Set xlActiveSheet = xlApp.ActiveSheet

For i = 1 To 9
strFieldName(i) = VBA.Trim(xlBook.Worksheets(strSheetName).Range(strTemp(i)).Value)
Next i

lblTotal.Caption = xlActiveSheet.UsedRange.Rows.count - 1

xlBook.Close
Set xlBook = Nothing
Set xlApp = Nothing
Set xlWorksheet = Nothing
Set xlActiveSheet = Nothing

[Cooly]

如果需要显示Word窗口

Set MyApp = CreateObject("Word.Application")
MyApp.Visible = true

[minajo21]

1.ShellExecute
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long


rc = ShellExecute(0, "open", strPath, "", strPathName, 1)

[lxcc]

up
还有
可以建立application(word或excel)对象，然后用他去打开
第二个问题
可以用剪贴板对象Clipboard