1) Stwórz plik tekstowy vba.txt o następującej zawartości
12
17
21
35
Na arkuszu umieść przycisk polecenia CommandButon1 i przypisz do niego następującą
procedurę:
Private Sub CommandButton1_Click()
Open "c:\jacek\vba\A_moje_testy\VBA.txt" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, Data
Range("a" & i).Value = Data
i = i + 1
Loop
Close #1
End Sub
UWAGA na ścieżkę dostępu do pliku
2) W kolumnie B arkusza umieść formułę przeliczającą zawartość kolumny A, np.
B=2*A
Na arkuszu umieść przycisk polecenia CommandButon2 i przypisz do niego następującą
procedurę:
Private Sub CommandButton2_Click()
Open "c:\jacek\vba\A_moje_testy\VBA.txt" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, Data
Range("a" & i).Value = Data
i = i + 1
Loop
Close #1
Open "c:\jacek\vba\A_moje_testy\VBA1.txt" For Output As #2
For j = 1 To i - 1
Data = Range("b" & j)
If IsNumeric(Data) Then Data = Val(Data)
Write #2, Data
Next j
Close #2
End Sub
3) Stwórz plik tekstowy vba2.txt o następującej zawartości
CO2 44 1.8
SO2 49 1.9
O2 32 2.1
N2 28 2.2
Na arkuszu umieść przycisk polecenia CommandButon3 i przypisz do niego następującą
procedurę:
Private Sub CommandButton3_Click()
Open "c:\jacek\vba\A_moje_testy\VBA2.txt" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, Data
Range("j" & i).Value = Data
i = i + 1
Loop
Close #1
End Sub
4) Na arkuszu umieść przycisk polecenia CommandButon4 i przypisz do niego następującą
procedurę:
Private Sub CommandButton4_Click()
Open "c:\jacek\vba\A_moje_testy\VBA2.txt" For Input As #1
i = 1
Do Until EOF(1)
Line Input #1, Data
All = Split(Data, " ")
Range("k" & i).Value = All(2)
i = i + 1
Loop
Close #1
End Sub
Wyszukiwarka
Podobne podstrony:
lab9lab9lab9lab9lab9 ReadMelab9lab9 ZAI9G1S1 Nadolny Michal Lab9sr lab9lab9lab9 analiza II09 LAB9lab9lab9 NHIPLab9 READMElab9lab9TM Asemb LAB9więcej podobnych podstron