VBAを色々と垣間見る

ユーザーフォームを利用してファイルの内容を表示します。

pick up

いつものようにシート1のセルC3に「go」と入力します。
ユーザーフォームが表れ、あるファイル(別のフォームに送るのプログラム)の内容を表示します。
特定のファイルは特定の場所にあるものとしています。


◆Sheet1
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Range("c3").Value = "go" Then
        Load UserForm1
        UserForm1.Show
    End If
    Range("c3").Value = ""
End Sub

◆UserForm1
Option Explicit
Dim myfile As New FileSystemObject
Dim mytxtfile As TextStream
Private Sub CommandButton1_Click()
    Dim ary() As String
    Dim dataary() As String
    Dim data() As String
    Dim item() As String
    Dim n As Integer
    Dim kazu As Integer
    Dim str As Variant
   
    n = 0
    Set mytxtfile = myfile.OpenTextFile(filename:="c:\mymy\harunatu.txt", IOMode:=ForReading)
    ListBox1.Clear
    Do Until mytxtfile.AtEndOfStream
        ListBox1.AddItem (mytxtfile.ReadLine)   ' サイズ取得
        n = n + 1
    Loop
    mytxtfile.Close
    Set mytxtfile = Nothing
       
    Set mytxtfile = myfile.OpenTextFile(filename:="c:\mymy\harunatu.txt", IOMode:=ForReading)
    ReDim ary(n - 1)
    n = 0
    Do Until mytxtfile.AtEndOfStream
        ary(n) = mytxtfile.ReadLine '
        n = n + 1
    Loop
    mytxtfile.Close
End Sub

Private Sub CommandButton2_Click()
    Unload UserForm1
End Sub



出稿2019年4月7日

tsuingcom