VB 中怎么判断文件打开的状态即打开是否成功

通过在打开之前进行窗口查找，如果查找成功，则调用SetWindowPos 置顶窗体，否则打开Private Declare Function SetWindowPos Lib ＂user32＂ (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As LongPrivate Declare Function FindWindow Lib ＂user32＂ Alias ＂FindWindowA＂ (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPrivate Const HWND_TOPMOST = -1Private Const SWP_NOMOVE = &H2Private Const SWP_NOSIZE = &H1Private Const SWP_SHOWWINDOW = &H40Private Sub Form_Load()Dim n As Long, m As LongDim sName As StringsName = ＂1.doc＂ & ＂ - Microsoft Word＂ '这里的1.doc 改成你的文件名n = FindWindow(vbNullString, sName)If n <> 0 Thenm = SetWindowPos(n, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE Or SWP_SHOWWINDOW)Else'打开Word代码End IfEnd Sub

vb中如何通过几组单选框来判断打开哪个word文件？

5个单选按钮的名称分别为a、b、c、d、e，确认按钮名称为enter，代码如下：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 LongPrivate Sub enter_Click()Dim sDoc As StringIf a And c ThensDoc = ＂D:\1.doc＂ShellExecute Me.hwnd, ＂open＂, sDoc, ＂＂, ＂＂, 5ElseIf b And d ThensDoc = ＂D:\2.doc＂ShellExecute Me.hwnd, ＂open＂, sDoc, ＂＂, ＂＂, 5End IfEnd Sub

word文档已经打开,如何用VB代码再往里写文字呢？

新建一个vb。

工程、引用、microsoft word 11.0 object library如果是2007版的word就是12.0，引用这个word就行哪个版都一样然后拖拽一个command1敲入如下代码Private Sub Command1_Click()'--------------以下是生成word文档。

Dim Wapp2 As New Word.ApplicationDim Wdoc2 As New Word.DocumentDim Opara2 As Word.ParagraphSet Wapp2 = CreateObject(＂word.application＂)Wapp2.Visible = True'Set Wdoc2 = Wapp.Documents.Open(＂d：\试卷-模板2.doc＂) '这是打开现有的wordSet Wdoc2 = Wapp2.Documents.Add '这是新建'Set Opara2 = Wdoc2.Content.Paragraphs.AddEnd Sub

VB如何判断文件正被占用

已独占方式打开 如果捕获到错误就是被占用了Private Function FileIsOpen(ByVal FilePath As String) As BooleanDim fFile As IntegerfFile = FreeFileOn Error GoTo ErrOpenOpen FilePath For Binary Lock Read Write As fFileClose fFileExit FunctionErrOpen:FileIsOpen = TrueEnd Function

转载请注明出处51数据库 » vb 判断word文件已打开文件