הצגת גרפים באקסל מנתונים בקבצי CSV. לא מצליח לייבא את הקבצים עם VBA. הצילו :( - תכנות - HWzone פורומים
עבור לתוכן
  • צור חשבון

הצגת גרפים באקסל מנתונים בקבצי CSV. לא מצליח לייבא את הקבצים עם VBA. הצילו :(


amitbl

Recommended Posts

היי.

שלפתי מקבצי לוג גדולים מאוד של שרת מסויים נתונים רלוונטים ויצרתי לי עם סקריפט BASH כמה עשרות קבצי CSV (טקסט מופרד בטאבים) שדחיפתם לאקסל לא *אמורה* להיות בעייתית.

בסופו של דבר אני צריך ליצור קובץ אקסל עם מאקרו כך שבלחיצת כפתור אני מייבא את קבצי הטקסט הללו ומציג גרפים בחתכים שונים.

עם בניית הגרפים עצמם בVBA אני אסתדר. אני משום-מה מסתבך ממש עם ייבוא קבצי הטקסט לאקסל.

חשבתי על משהו בסגנון הזה:


dim myPath as String
myPath = "C:\blabalablablab\bla
with Application.FileSearch
.newSearch
.LookIn = myPath
.SearchSubFolders=False
.FileType=msoFileTypeAllFiles

If .Execute() > 0 then 'files found
MsgBox "there were "&.foundFiles.count&" files found."
for i=1 to .FoundFiles.Count

Workbooks.OpenText Filename:=.FoundFiles(i), origin:=xlWindows, DataType:=xlDelimited, Tab:=True
?????????

next i
Else
MsgBox "There were no files found."
End If
End With

עכשיו, בגדול הפקודה openText עובדת יפה ממש, אבל הבעיה היא שהיא מייבאת כל קובץ לWorkBook חדש (קובץ אקסל חדש). אני צריך שהיא תייבא לתוך גליון (workSheet).

ניסיתי יום שלם לעקוף את זה ולנסות לבצע המרה כלשהי ממחברת לגליון באמצעות VBA. יש למישהו רעיון או אפילו יכול להשלים לי את הקוד שם? אני ממש אובד עצות כבר.

קישור לתוכן
שתף באתרים אחרים

ארכיון

דיון זה הועבר לארכיון ולא ניתן להוסיף בו תגובות חדשות.

×
  • צור חדש...