機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > VBAのステートメント

Putステートメント



Putステートメント

構文
Put [#]filenumber,[recnumber],varname
filenmberには、任意のファイル番号を指定します。
recnumberは省略可能です。書き込みを開始するレコード番号やバイト位置を指定します。
varnameには、書き込むデータを格納している変数の名前を指定します。

解説
変数の内容をディスク上のファイルに書き込みます。
Putステートメントでオブジェクトを書き込むことはできません。

サンプル
次の例は、ユーザーが入力した名前をファイルに書き込み、入力完了後入力された名前を表示します。

Sub Sample()
    Dim YourName As String * 20, i As Integer, tmp As String
    Open "C:\UserName.dat" For Random As #1 Len = Len(YourName)
    YourName = InputBox("氏名を入力してください")
    Do While YourName <> String(20, " ")
        Put #1, , YourName
        YourName = InputBox("氏名を入力してください")
    Loop
    If Loc(1) = 0 Then
        MsgBox "登録された名前はありません"
    Else
        For i = 1 To Loc(1)
            Get #1, i, YourName
            tmp = tmp & YourName & vbCrLf
        Next i
        MsgBox tmp
    End If
    Close #1
End Sub



このエントリーをはてなブックマークに追加