Trích:
Nguyên văn bởi huntercd
Bạn có thể hứong dẫn cụ thể hơn ko? Hướng dẫn bằng hình ảnh càng tốt.
"1. mở word ra, vào tool > macro > visual basic editor " <- bước này làm rồi - "sau đó paste vào. " vấn đề là past cái gì vào và paste ở đâu, đề nghị bạn giải thích rõ ra - "copy file data.txt vào ổ C" copy vào bất cứ đâu của ổ C cũng được à???
|
trong file NewMacros.bas mặc định đường dẫn là C:\Data.txt
nếu bạn muốn chép vô bất cứ nơi đâu thì dùng notepad để mở file
NewMacros.bas rồi chép đường dẫn nơi bạn lưu NewMacros.bas rồi thay đường dẫn là ok.
Set objStream = CreateObject("Scripting.FileSystemObject").OpenTex tFile("
C:\Data.txt", 1, False, -2)
If (Not objStream Is Nothing) Then
With objStream
Open "
C:\Data.txt" For Input As #1 ' Open database
thay đổi thành
G:\TRUYEN\Bien Tap\data.txt
Set objStream = CreateObject("Scripting.FileSystemObject").OpenTex tFile("
G:\TRUYEN\Bien Tap\data.txt", 1, False, -2)
If (Not objStream Is Nothing) Then
With objStream
Open "
G:\TRUYEN\Bien Tap\data.txt" For Input As #1 ' Open database