ברוך הבא, אורח
שם משתמש: סיסמא: זכור אותי

דיון: scheduling to export xls file

scheduling to export xls file 8 years 8 months ago #7513

  • itzik
  • itzik's Avatar
  • Offline
  • Fresh Boarder
  • הודעות: 2
  • קרמה: 0
שלום,
כיצד אני יכול לבצע EXPORT של טבלה ממודל לפורמט XLS ,כאשר היצוא ל XLS יתבצע כל יום לאחר סיום ריצה ( המודל מתוזמן לרוץ פעם ביום )?
תודה .
הנהלת האתר ביטלה גישת כתיבה ציבורית.

תגובה:scheduling to export xls file 8 years 8 months ago #7516

  • yigal.beno
  • yigal.beno's Avatar
  • Offline
  • Fresh Boarder
  • הודעות: 17
  • קרמה: 0
היי איציק,

ראשית יש להוסיף את פקודת המאקרו לייצוא לאקסל,
לאחר מכן להגדיר ב:
Settings->Document properties->Trrigers->On Post Reload
את ריצת המקרו.

מצ"ב קובץ לדוגמא.

בהצלחה.

File Attachment:

שם קובץ: Excel.qvw
גודל קובץ:147 ק''ב
הנהלת האתר ביטלה גישת כתיבה ציבורית.

תגובה:scheduling to export xls file 8 years 8 months ago #7517

  • itzik
  • itzik's Avatar
  • Offline
  • Fresh Boarder
  • הודעות: 2
  • קרמה: 0
לפני הכל תודה רבה,
זה עובד מעולה.!
אני מעוניין ליצא את הקובץ הנ"ל במייל ,יש לך הצעה כיצד לעשות זאת.
אני חשבתי שאולי ניתן שהקובץ ילך לספריה ספציפית שתוגדר במקרו ואז ניתן לבצע זאת ע"י TASK SCHEDULER .
(כיצצד אני שומר את הקובץ במקרו בספריה ספציפית? ודואג שהשם של הקובץ לא ישתנה וישאר קבוע?)
הרבה תודה על העזרה
הנהלת האתר ביטלה גישת כתיבה ציבורית.

תגובה:scheduling to export xls file 8 years 8 months ago #7518

  • yigal.beno
  • yigal.beno's Avatar
  • Offline
  • Fresh Boarder
  • הודעות: 17
  • קרמה: 0
היי איציק,

הוספתי כמה שינויים:
sub CopyToXL2
set XLApp = CreateObject("Excel.Application")
XLApp.Visible = FALSE
set XLDoc = XLApp.Workbooks.Add
XLDoc.Sheets(1).name = "Supervisor Report"
set XLSheet = XLDoc.Worksheets(1)
set MyTable = ActiveDocument.GetSheetObject("TB01")
set XLSheet = XLDoc.Worksheets(1)
MyTable.CopyTableToClipboard true
XLSheet.Paste XLSheet.Range("A1")
XLDoc.SaveAs "C:\Users\igal\Documents\BU\MyRep.xlsx"


XLApp.Visible = False
XLApp.Quit
Set XLApp = Nothing
Set Table = Nothing
end sub

sub CopyToXL2

set XLApp = CreateObject("Excel.Application")
XLApp.Visible = FALSE
set XLDoc = XLApp.Workbooks.Add
XLDoc.Sheets(1).name = "Supervisor Report"
set XLSheet = XLDoc.Worksheets(1)
set MyTable = ActiveDocument.GetSheetObject("TB01")
set XLSheet = XLDoc.Worksheets(1)
MyTable.CopyTableToClipboard true
XLSheet.Paste XLSheet.Range("A1")
XLDoc.SaveAs "C:\Users\igal\Documents\BU\MyRep.xlsx"

XLApp.Visible = False
XLApp.Quit
Set XLApp = Nothing
Set Table = Nothing

end sub

Sub SendGMail()

' Object creation
Set objMsg = CreateObject("CDO.Message")
Set msgConf = CreateObject("CDO.Configuration")

' Server Configuration

msgConf.Fields.Item("schemas.microsoft.com/cdo/configuration/sendusing") = 2
msgConf.Fields.Item("schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
msgConf.Fields.Item("schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
msgConf.Fields.Item("schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
msgConf.Fields.Item("schemas.microsoft.com/cdo/configuration/sendusername") = "This e-mail address is being protected from spambots. You need JavaScript enabled to view it."
msgConf.Fields.Item("schemas.microsoft.com/cdo/configuration/sendpassword") = "mailPasseord"
msgConf.Fields.Item("schemas.microsoft.com/cdo/configuration/smtpusessl") = 1

msgConf.Fields.Update

' Email
objMsg.To = "This e-mail address is being protected from spambots. You need JavaScript enabled to view it."
objMsg.From = "This e-mail address is being protected from spambots. You need JavaScript enabled to view it."
objMsg.Subject = "Subject You Want"
objMsg.HTMLBody = "Body Of The Mail"
objMsg.Sender = "YourName"

' If you have attachment
Path ="C:\Users\igal\Documents\BU\"
FileName="MyRep.xlsx"
objMsg.AddAttachment Path&FileName


Set objMsg.Configuration = msgConf

' Send
objMsg.Send
' Clear
Set objMsg = nothing
Set msgConf = nothing
End Sub

יש לשים לב:
הנתיב בו נרצה לשמור את הקובץ:

XLDoc.SaveAs "C:\Users\igal\Documents\BU\MyRep.xlsx"

אימייל השולח והסיסמא.
msgConf.Fields.Item("schemas.microsoft.com/cdo/configuration/sendusername") = "This e-mail address is being protected from spambots. You need JavaScript enabled to view it."
msgConf.Fields.Item("schemas.microsoft.com/cdo/configuration/sendpassword") = "mailPasseord"


נתונים עבור השליחה:
' Email
objMsg.To = "This e-mail address is being protected from spambots. You need JavaScript enabled to view it."
objMsg.From = "This e-mail address is being protected from spambots. You need JavaScript enabled to view it."
objMsg.Subject = "Subject You Want"
objMsg.HTMLBody = "Body Of The Mail"
objMsg.Sender = "YourName"

' If you have attachment
Path ="C:\Users\igal\Documents\BU\"
FileName="MyRep.xlsx"
objMsg.AddAttachment Path&FileName

שמח לעזור,

בהצלחה.

File Attachment:

שם קובץ: ExportToEx...0229.qvw
גודל קובץ:148 ק''ב
צירופים:
עריכה אחרונה: 8 years 8 months ago  ע''י yigal.beno.
הנהלת האתר ביטלה גישת כתיבה ציבורית.
זמן יצירת העמוד: 0.215 שניות

הדף שלנו בפייסבוק

מעניין? שתפו דף זה באמצעות הטלפון הנייד

אירועים קרובים

מאמרים

מגמות של ביג דאטה בעולם הביטוח
CA Technologies
SSIS - Buffer Size Optimization
קטגוריה ראשית
בדיקות BI ו-DWH לעומת הבדיקות בתחומים אחרים
קטגוריה ראשית
איסוף דרישות לפרויקטי BI
קטגוריה ראשית
כח המידע במיקוד
קטגוריה ראשית
0

Microsoft

Oracle

IBM

Informatica

Sap

SAS

Qlikview

Cloudera

Machine Learning