הצטרפו לקבוצות שלנו לקבלת עדכונים מרוכזים פעם בשבוע:

ווטסאפ:
http://wa.dwh.co.il
טלגרם:
http://telegram.dwh.co.il

יצוא אובייקט של QV כקובץ tab delimted

More
14 years 6 months ago #7092 by guya
יצוא אובייקט של QV כקובץ tab delimted was created by guya
יש לי קובץ QV שיוצר טבלה פשוטה למדי אותה אני מייצא לאקסל בעזרת מאקרו:
Sub Export1
set sht2 = ActiveDocument.GetSheetByID("SH01")
set tbl2 = sht2.SheetObjects("CH1761")
"C:\QV\Development\Guy\INVSTATS.CSV"
END SUB

הקובץ הזה אמור להיקרא בממשק לפריוריטי ולכן לא יכול להיות מוצג כאקסל אלא כקובץ txt שהוא tab delimited.
כאשר ניסיתי לשנות את הסיומת של הקובץ מ-CSV ל-TXT יוצא לי מסמך טקסט בג'יבריש, אשמח אם למישהו יש רעיון איך לייצא את האובייקט בצורה תקינה.

תודה

Please התחברות to join the conversation.

More
14 years 5 months ago #7168 by נתנאל אלירז
Replied by נתנאל אלירז on topic תגובה:יצוא אובייקט של QV כקובץ tab delimted
קודם כל - במאקרו שלך חסרה פונקציית Export (אני מניח שבטעות פשוט לא העתקת אותה לפוסט).
מוזר לי שיצא לך ג'יבריש. קובץ CSV הוא קובץ טקסט לכל דבר ועניין, שהשדות בו מופרדים בפסיק (אתה לא צריך לשנות את שם הקובץ - פשוט פתח אותו ב-Notepad).
בכל מקרה תוכל לייצא ידנית את האובייקט ע"י קליק-ימני ו-Export ואז בסוג הקובץ לבחור Tab Delimited.
אמנם פונקציית המאקרו Export מקבלת "מפריד" כפרמטר, אבל לא הצלחתי להעביר לה את תו ה-"טאב" כמפריד.

Please התחברות to join the conversation.

More
14 years 5 months ago #7170 by Daniel Chotzen
Replied by Daniel Chotzen on topic תגובה:יצוא אובייקט של QV כקובץ tab delimted
היי,
הפונקציה export במאקרו היא ישנה
בגרסה 9 נדמה לי יצאה פונקציה חדשה הנקראית
ExportEx
לפונקציה זו מספר פרמטרים:
שם הקובץ ליצוא מחרוזת המכילה את שם הקובץ כולל מסלול

פורמט: מקבל אחד הערכים הבאים
0 - HTML
Text Delimited - 1
Bitmap Image - 2
XML - 3
QVD - 4
Biff-Excel - 5

לאחר מכן יש 3 פרמטרים שאינם חובה
true/false
מציין האם יש להוסיף לקובץ או לדרוס אותו. רלוונטי כמובן רק לסוגי יצוא מסוימים

מפריד
מציין מחרוזת שתשתמש כמפריד בין שדות
(כדי לשים שם משהו שאינו תו רגיל - למשל טאב, ניתן להשתמש בפונקציה CHR() ולהעביר לה כפרמטר את קוד האסקי. TAB=9 למשל

Code Page Number
במידה ורוצים לעבוד עם סט תווים אחר
לדוגמא:
1200=Unicode
65001=UTF-8

שימו לב שהפונקציה גם מחזירה ערך False במקרה והיצוא נכשל
דוגמא לשימוש:
set obj = ActiveDocument.GetSheetObject("CH01")
obj.ExportEx "C:\test.qvd", 4

בנוסף קיימות מספר פונקציות נוספות יחודיות לפורמטים מסוימים
כגון
ExportBitmapToFile המיצאת אוביקקט או גליון לתמונה
ExportHtml המיצאת למבנה HTML
ועוד.....
אבל הם נמצאות בעקר לתמיכה בגרסאות קודמות

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

ברכה
דניאל

Please התחברות to join the conversation.

More
14 years 5 months ago #7173 by נתנאל אלירז
Replied by נתנאל אלירז on topic תגובה:יצוא אובייקט של QV כקובץ tab delimted
דניאל, לא הכרתי את ExportEx - תודה :)

Please התחברות to join the conversation.

Moderators: avishayl, giladl, Daniel Chotzen, odedth
Time to create page: 0.248 seconds