1

VB を使用してテキスト ファイルからデータを検索し、Excel にデータを入力しています。それは働いています。問題は、xl.visible=true を使用すると、Excel シートが一度に表示され、値が入力され続けることです。データの作成が完了するまで、Excel を非表示にしたいと考えています。次に、クリックするとExcelファイルが表示されるボタンをフォームに表示します。

助けてください。私が使用しているコードは次のとおりです。

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

    ' create an excel instance
    Dim xl = Microsoft.VisualBasic.CreateObject("Excel.Application")
    xl.Visible = False
    Dim wb = xl.Workbooks.Add()
    Dim sheet = wb.ActiveSheet

    ' find lines starting with any whitepace followed by MTV or MTB and capture
    ' the text after =
    Dim pattern = "(?<=\s*(MTV).*=).*"

    Dim i = 1
    Dim arg = {Microsoft.VisualBasic.ControlChars.CrLf, Microsoft.VisualBasic.ControlChars.Lf}


    If RichTextBox3.Text = "" Then
        MsgBox("No input. What will I process??")

        Else
        Timer1.Start()
            For Each line In File.ReadLines(RichTextBox3.Text)
                Dim match = Regex.Match(line, pattern)
                ' check each line and fill sheet

            If match.Success Then
                sheet.Cells(i, 1).Value = match.Value
                i += 1
            End If
        Next
    End If

    xl.Visible = True


End Sub
4

2 に答える 2

0

ボタンなどをクリックすると単純なタイプbutton1.Hide()で、ボタンが非表示になります。これがお役に立てば幸いです。

は最初のボタンをbutton1.Hide()指すことに注意してください。2 番目のボタンの場合はbutton2.hide()、 などになります。

于 2014-09-16T05:51:55.267 に答える