0

フォームが読み込まれる前に開いているブックがあります。

Excel で vba を使用すると、このコードは問題なく動作します。

 wbListPath = "C:\WAREHOUSE CONTROL ----- DO NOT DELETE\"
 wbListName = "WAREHOUSE CONTROL FORM ----- DO NOT DELETE.xlsm"


 Set wbList = Application.Workbooks("WAREHOUSE CONTROL FORM ----- DO NOT DELETE.xlsm")

If Not BookOpen(wbList.Sheets("Directories").Cells(15, 3)) Then                    ' inventory master
    wb2 = Workbooks.Open(wbList.Sheets("Directories").Cells(15, 2) & wbList.Sheets("Directories").Cells(15, 3))    'Cambridge Master
 Else
     wbLkup = wbList.Sheets("Directories").Cells(15, 3).Text
     Set wb2 = Application.Workbooks(wbLkup)
 End If




Function BookOpen(strBookName As String) As Boolean
    Dim oBk As Workbook
    On Error Resume Next
    Set oBk = Workbooks(strBookName)
    On Error GoTo 0
    If oBk Is Nothing Then
        BookOpen = False
    Else
        BookOpen = True
    End If
End Function

vb.net に切り替えると、form1 を実行する前に開いていたワークブックを検出するためのコードを取得できません。最も近いものは次のとおりです。

Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click
     Dim WorkBookNames() As String = {TextBox1.Text, TextBox1.Text & "  [Compatibility Mode]", "Microsoft Excel - 001 Phone List  [Compatibility Mode]"}
    exPhone = ChkNOpenWB(exPhone, WorkBookNames, TextBox12.Text)
    excelApp.Visible = True

End Sub

Function ChkNOpenWB(bookName As Workbook, WorkBookNames() As String, path As String) As Workbook
    Dim openFlag As Boolean = True
    For Each p As System.Diagnostics.Process In System.Diagnostics.Process.GetProcesses()
        If p.ProcessName = "EXCEL" Then
            For Each excelFile As String In WorkBookNames
                If p.MainWindowTitle.Contains(excelFile) Then
                    bookName = GetObject(TextBox12.Text & "\" & TextBox1.Text)
                    bookName.RefreshAll()
                    openFlag = False
                End If
            Next
        End If
    Next
    If (openFlag) Then
        bookName = excelApp.Workbooks.Open(TextBox12.Text & "\" & TextBox1.Text, ReadOnly:=False)
        bookName.Activate()
    End If
    Return (bookName)
End Function
4

2 に答える 2

1

マーシャリングも使えます。これは、ワークブックが既に開いているかどうかを確認します。そうでない場合は、開きます。すでに開いている場合は、ワークブックを変数に割り当てます。

    Dim exApp AS Excel.Application = New Excel.Application
    Dim wb as excel.Workbook
    Dim exSheet As Excel.Worksheet = Nothing

    exApp.Visible = True

    wb = System.Runtime.InteropServices.Marshal.BindToMoniker(FileNamePath)
    exApp = wb.Parent

    'lets see it
    exApp.Visible = True
    exApp.Windows(1).Visible = True

    Dim tSheet As Excel.Worksheet = exApp.ActiveWorkbook.Sheets.Item(1)
于 2014-12-16T15:07:43.297 に答える
0

ファイルを書き込み用に開くことができるかどうかを確認するだけです。Excel で開いた場合、チェックは失敗します。

Public Shared Function FileInUse(ByVal Filename As String) As Boolean

    Dim thisFileInUse As Boolean = False
    If System.IO.File.Exists(Filename) Then
        Try
            Using f As New IO.FileStream(Filename, FileMode.Open, FileAccess.ReadWrite, FileShare.None)
                thisFileInUse = False
            End Using
        Catch
            thisFileInUse = True
        End Try
    End If
    Return thisFileInUse

End Function
于 2014-12-16T14:24:52.747 に答える