להלן נבחן תוכנית ב Excel VBA זֶה קורא נתונים מקובץ טקסט. קובץ זה מכיל כמה קואורדינטות גיאוגרפיות שברצוננו לייבא לאקסל.
מַצָב:
1. ראשית, הורד את קובץ הטקסט והוסף אותו ל- "C: \ test \"
מקם כפתור פקודה בגליון העבודה שלך והוסף את שורות הקוד הבאות:
2. אנו מצהירים על ארבעה משתנים. myFile של סוג מחרוזת, טקסט מסוג מחרוזת, שורת טקסט של מחרוזת סוג, posLat מסוג מספר שלם ו posLong של סוג שלם.
Dim myFile As String, text As String, textline As String, posLat As Integer, posLong As Integer
3. עלינו לאתחל את המשתנה myFile עם הנתיב המלא ושם הקובץ.
myFile = "C: \ test \ geografical-coordinates.txt"
אוֹ
השתמש בשיטת GetOpenFilename של אובייקט היישום כדי להציג את תיבת הדו -שיח Open הרגילה ובחר את הקובץ (מבלי לפתוח את הקובץ בפועל).
myFile = Application.GetOpenFilename ()
הערה: החלק הריק בין הסוגריים פירושו שאנחנו לא נותנים ל- Excel VBA דבר כקלט. מקם את הסמן על GetOpenFilename בעורך Visual Basic ולחץ על F1 לעזרה בטיעונים.
4. הוסף את שורת הקוד הבאה:
פתח את myFile לקלט כמספר 1
הערה: הצהרה זו מאפשרת לקרוא את הקובץ. אנו יכולים להתייחס לקובץ כמספר 1 במהלך שאר הקוד שלנו.
5. הוסף את שורות הקוד הבאות:
עשה עד EOF (1)
קלט שורה מספר 1, שורת טקסט
text = text & textline
לוּלָאָה
הערה: עד סוף הקובץ (EOF), Excel VBA קורא שורה אחת מהקובץ ומקצה אותו לשורת טקסט. אנו משתמשים באופרטור & כדי לחבר (להצטרף) את כל השורות הבודדות ולאחסן אותו בטקסט המשתנה.
6. סגור את הקובץ.
סגור את מספר 1
7. לאחר מכן, אנו מחפשים את המיקום של המילים קו הרוחב והאורך בטקסט המשתנה. אנו משתמשים בפונקציית Instr.
posLat = InStr (טקסט, "קו הרוחב")
posLong = InStr (טקסט, "אורך")
8. אנו משתמשים במיקומים אלה ובפונקציה Mid כדי לחלץ את הקואורדינטות מהטקסט המשתנה ולכתוב את הקואורדינטות לתא A1 ולתא A2.
טווח ("A1"). ערך = אמצע (טקסט, posLat + 10, 5)
טווח ("A2"). ערך = אמצע (טקסט, posLong + 11, 5)
9. בדוק את התוכנית.
תוֹצָאָה:
