Основы офисного программирования и язык VBA


Пример 14.3


Public Sub WritingWithWrite()

Dim MyStr As String, MyBool As Boolean, MyDate As Date

Dim MyNull As Variant, MyFloat As Double, MyErr As Variant

'Открытие файла readme.txt

Open Path & "readme.txt" For Output As #7

'Создание файла

Write #7, "Первая строка файла" ' запись текстовой строки.

Write #7, "Зона 1", "Зона 2" ' запись двух строк.

Write #7, "Привет,", "старик!" 'еще две строки

MyStr = "раму мылом. "

Write #7, "Мама ", "мыла ", MyStr

MyBool = False ' булева переменная

Write #7, MyBool

MyDate = #6/14/1999# ' значение даты

Write #7, MyDate ' запись даты

MyNull = Null ' нулевое значение

Write #7, MyNull

MyFloat = 3.1416 'вещественное значение

' использование функции Format:

Write #7, MyFloat, Format(MyFloat, "0.00"), Format(MyFloat, "00.000")

On Error Resume Next

Err.Raise 6

MyErr = Err

Write #7, MyErr

MyErr = CVErr(2000)

Write #7, MyErr

End Sub




Начало  Назад  Вперед



Книжный магазин