ייצוא לאקסל של שלוש טבלאות ברצף,אחת תחת השנייה

davidvir
Topic Author
Offline
Premium Member

15 years 10 months ago - 15 years 10 months ago #5936 by davidvir

ייצוא לאקסל של שלוש טבלאות ברצף,אחת תחת השנייה was created by davidvir

שלום אנשים,

יש לי כשלוש טבלאות ב-QV (ב-GUI עצמו מסוג Straight) ,כולן בעלות אותו מבנה של עמודות אך שונות בכמות השורות.
כמובן שמסיבות מסויימות לא ניתן לאחד בניהן ועל כן עולה הצורך לאפשר
למשתמשים באמצעות לחיצת כפתור (מאקרו) לייצא את שלושת הטבלאות לאקסל אך שהן יופיעו אחת תחת השנייה (באותו גיליון כמובן).

ב-VB אני לא מבין יותר מידי אבל הצלחתי להגיע למשהו
שעובד לא רע.

הבעיה העיקרית שלי עכשיו היא איך לא להעתיק את הכותרות של הטבלה השנייה והשלישית שוב (כאמור מדובר על שלוש טבלאות בעלות מבנה זהה-לכן אין טעם להעתיק שלוש פעמים את השורה הראשונה של הכותרות)

אשמח לאיזה טיפ בעניין זה.

תודה

מצ"ב הפונ' ב-VB:

Code:

Sub try2222
	Dim kost,i
	Set XLApp = CreateObject("Excel.Application")
    XLApp.Visible = TRUE
    Set XLDoc = XLApp.Workbooks.Add
    kost = ""
    kost = "TRY"

    XLDoc.Sheets.Add 
    XLDoc.ActiveSheet.Name= kost
     
   	ActiveDocument.GetSheetObject("CH967").CopyTableToClipboard true   
	XLDoc.Sheets(kost).Activate
	XLDoc.Sheets(kost).Range("A1").Select
    XLDoc.Sheets(kost).Paste   	
   	MyLastRow=ActiveDocument.GetSheetObject("CH967").GetNoOfRows+3
   	
   	ActiveDocument.GetSheetObject("CH1136").CopyTableToClipboard true   
	XLDoc.Sheets(kost).Activate
    XLDoc.Sheets(kost).Range("A"&MyLastRow).Select
    XLDoc.Sheets(kost).Paste
    MyLastRow2=ActiveDocument.GetSheetObject("CH1136").GetNoOfRows+3
    
    ActiveDocument.GetSheetObject("CH965").CopyTableToClipboard true   
	XLDoc.Sheets(kost).Activate
    XLDoc.Sheets(kost).Range("A"&MyLastRow+MyLastRow2-1).Select
    XLDoc.Sheets(kost).Paste
    

Last edit: 15 years 10 months ago by davidvir.