в 16:33, 26 мая 2010

2010-05-26T16:33:00Z

Admin: 1 версия

2010-05-26T12:47:05Z

1 версия

Новая страница

==Create Sequential Access Files==



<source lang="vb">

File Access Modes with VBA
Access Mode Writing Data Reading Data
Sequential/Append Print#, Write# Input#, Input
Random Put Get
Binary Put, Write# Get, Input#, Input
Public Sub CreateSeqFile()
Dim filePath As String
Dim I As Integer
filePath = ActiveWorkbook.Path & "\MyHeaders.txt"
Open filePath For Output As #1
For I = 1 To 5
Write #1, Cells(1, I).Value
Next I
Close #1
End Sub
</source>

==Read Sequential Access Files==



<source lang="vb">

Public Sub ReadSeqFile()
Dim filePath As String
Dim I As Integer
Dim myHeader As String
I = 1
filePath = ActiveWorkbook.Path & "\MyHeaders.txt"
Open filePath For Input As #1
Do While Not EOF(1)
Input #1, myHeader
Cells(1, I).Value = myHeader
I = I + 1
Loop
Close #1
End Sub
</source>

==Write and read Sequential Access Files==



<source lang="vb">

Public Sub CreateSeqFile()
Dim filePath As String
Dim I As Integer
filePath = ActiveWorkbook.Path & "\SeqPhone.txt"
Open filePath For Output As #1
For I = 1 To 3
Write #1, Cells(I, "A").value, Cells(I, "B").value
Next I
Close #1
End Sub
Public Sub ReadSeqFile()
Dim filePath As String
Dim I As Integer
Dim theName As String
Dim theNumber As String
I = 1
filePath = ActiveWorkbook.Path & "\SeqPhone.txt"
Open filePath For Input As #1
Do While Not EOF(1)
Input #1, theName, theNumber
Cells(I, "A").value = theName
Cells(I, "B").value = theNumber
I = I + 1
Loop
Close #1
End Sub
</source>

← Предыдущая	Версия 16:33, 26 мая 2010
(нет различий)

VBA/Excel/Access/Word/File Path/Sequential Access Files - История изменений

в 16:33, 26 мая 2010

Admin: 1 версия