תחומים - פורום חרדי מקצועי

@shraga @ek0583232948
קובץ>אשף הפעולות>צור פעולה חדשה
עוד כלים>בצע JavaScript
לבחור בלחצן אפשרויות
ושם להדביק את הקוד

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

/* שכפל את כל העמודים במסמך */
for (var i=this.numPages-1; i>=0; i--) {
    this.insertPages(i, this.path, i);
}

@zvinissim ניסיתי לעשות כדברי @אוריי
אבל לי זה תקע את כל האקסל
לכן פתחתי חוברת עבודה חדשה מצו"בAdd.xlsm
רק צריך לתת הרשאות לאקסל לפתוח מאקרו

ושמתי אותו בתיקיה
C:\Users*******\AppData\Roaming\Microsoft\Excel\XLSTART
כך שהוא עולה כל פעם שהאקסל נפתח
אח"כ הוספתי אותו בסרגל הכלים שאצלי נמצא תמיד למטה

כלל ברזל: "שמונה פעמים מודדים ופעם אחת מנסרים"

זה בדיוק מה שעשיתי...

הנתיב המלא במאפיינים של הקיצור דרך צריך להיות כך

"C:\Program Files\Google\Chrome\Application\chrome_proxy.exe" --profile-directory=Default --app-id=mdpkiolbdkhdjpekfbkbmhigcaggjagi --app-launch-url-for-shortcuts-menu-item="https://mail.google.com/chat/u/tchumim@gmail.com/#chat/home"

תוסיף את הקטע הזה בסוף המאפיינים ותשנה לכתובת המייל המלאה שלך

--app-launch-url-for-shortcuts-menu-item="https://mail.google.com/chat/u/tchumim@gmail.com/#chat/home"

@שוקו אנחנו ביחד באותו סירה
פעם ראשונה לקח הרבה זמן
פעם שניה לא הגיע
פעם שלישית אני ממתין כ-10 ימים כבר

דרך נוספת
זה כתב בבל כפי שמופיע כאן

‏‮N‮N‮ᘓ‮ ‮ਕ‮ꓵ‮I‮𝄞

אפשר גם לשנות את השם של האימייל
וככה פתאום אולי אנשים יגיבו לך יותר מהר.....
או יתעצבנו עליך.....

אפשר בגוגל דוקס עם פרמטרים לשמור כ-PDF
ואם ה-API של גוגל מסובך לך
אפשר לקצר את זה דרך MAKE
ראה כאן https://www.make.com/en/use-cases/automate-contract-creation

@צבי-ש התשובה מתקבלת ב-JOSN, ויש להמירה למערך-אובייקט שמכיל מפתחות וערכים.
בשורה הראשונה מצהירים על אובייקט
בשורה השניה מתבצעת טעינת הערכים לאובייקט על ידי קריאה לפונקציה (*)JsonConverter.ParseJson
הכוכביות זה בעצם ה-JOSN שאתה ממיר
ובשורה האחרונה מתבצעת קריאה למפתח Message שבמקרה שלך הערך שלו הוא שגיאה לא ידועה

@צבי-ש תנסה את זה,
בהנחה שיש לך את הקוד שממיר JOSN
שמקורו כאן

Dim ResponseJson As Object
Set ResponseJson = JsonConverter.ParseJson(Response.Content)    
Debug.Print ResponseJson("Message")

@אביי
הקשר בין מדינות למדינות ובין ערים לערים צריך להיות , כך

כדי שיציג לך גם אם אין במדינות אינפו את השורה של ארצות הברית

@אנא

מצו"ב מחדש
עם השורה שפספסתי מקודם

function myFunction() {
   var txetFile
  for (var counter = 0; counter <= 100; counter = counter + 1) {
    txetFile=counter;
    if (counter<100) {txetFile = "0" + counter};
    if (counter<10) {txetFile = "0" + txetFile};
  Logger.log( txetFile.toString() );
}
}

@פלורידה
נסה את זה

Sub מאקרו1()

Dim ws As Worksheet
Application.ScreenUpdating = False
    
    For Each ws In ThisWorkbook.Sheets
         With ws
            .Range("b7").Select
            מאקרו2
            Selection.ClearContents
            .Range("b7").Select
         End With
    Next
    
Application.ScreenUpdating = True

End Sub

@פלורידה
בלת"ק
באקסס יש הפרדה בין הטבלאות לשאילתות והטפסים
אולי צריך לייצר טבלה אחת במקרה שלך [תלמוד בבלי] עם כל הערכים
ואחר כך לקשר את כל התאים לגליונות
כך יהיה הרבה יותר קל לגבות את הטבלה?!

@אוריי אמר בעזרה | לערוך קובץ אקסל ע"י קוד vba מקובץ אקסס:

@מנחם
הרבה תודה
זו באמת היתה הבעיה
תכלס התקדמתי עוד
וזה הקוד שיש לי

On Error GoTo doExcelAutomationErr

Dim mySheet As Object
Dim xlApp As Object
Dim strName As String

    strName = aName
    Set xlApp = CreateObject("Excel.Application")
    Set mySheet = xlApp.Workbooks.open(aName).Sheets(1)

    mySheet.SaveAs strName
    xlApp.Visible = False
    Set mySheet = xlApp.Sheets("Export")
    
    With mySheet
        
    Range("a1").Value = "שם ספר"
    Range("b1").Value = "צבע"
    Range("c1").Value = "מדף"
    Range("d1").Value = "שם מחבר"
    Range("e1").Value = "סיווג"
    Range("f1").Value = "הערות"
    
    
    .Application.ActiveWorkbook.Save
    End With
    
    Set mySheet = Nothing
    Set xlApp = Nothing

doExcelAutomationExit:
    Exit Sub

doExcelAutomationErr:
    MsgBox Err.Description, vbOKOnly, Err.Source & ":" & Err.Number
    Resume doExcelAutomationExit

הקוד עובד מעולה חוץ מזה שיש לי 2 בעיות...
1. בשורה 11 הוא ככל הנראה פותח קובץ חדש והוא מבקש ממני להחליף אותו מה שאני רוצה לבטל עריכה: בסיעתא דשמיא הצלחתי להתגבר על הבעיה הזו.
2. הקוד הזה לא סוגר לי את קובץ האקסל

משתנה aName מכיל את הנתיב של הקובץ

אני מקוה שהבנת ששורה 11 צריך למחוק
שים לב ששורה 9 ו 13 חוזרים על עצמם
אני הייתי משאיר רק את שורה 9
כשהסוגריים הראשון זה שם הקובץ והסוגריים השני זה או מספר הגליון כמו שרשום אצלך או "שם הגליון" עם מרכאות

במקום עבודתי הזמינו עכשיו רמקול SIP עבור כל הכתות והמסדרונות מדובר בכ-22 איזורים לכריזה
החברה היתה בטוחה שיהיה להם קל לבנות את המערכת עבור הצלצולים, כרגע הדבר נראה מסובך והטכנאי שם מושך את הזמן, אין להם לוח שנה עברי, בעבור כל ניגון שונה אני צריך להגדיר צלצול אחר
כך שבמקום שיהיה כ-20 צלצולים אני יצטרך כ-300 צלצולים וכו' וכו'.

יש לי תוכנה קטנה שבניתי עבור צלצולים שיוצא דרך יציאת AUX רגילה במחשב , האם אני יכול לבנות תוכנה שתשב על המחשב שלי ותשדר דרך הרשת בזמני הצלצולים את השירים המבוקשים?

הידע שלי בתכנות הוא מתחיל מינוס, אבל יש לי כח רצון חזק להתקדם, אם תוכלו לעזור לי להתחיל לקרוא מידע איך והאם אני יכול לבנות את המערכת, אודה לכם מראש.

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

אם הארכתי יותר מדאי אבקש את התנצלותכם!

שלח לי במייל את המספר ואבדוק לך
מופיע בפרופיל שלי

בדוק באיתור חבילה במכס כאן

https://caspion.org/
יעשה לך חלק גדול מהעבודה
זה רץ על המחשב עם אפשרות חיבור לשיטס
ומכאן השמיים הם הגבול

נ.ב. לא ראיתי שיש להם אפשרות של יתרה בעיקר של תנועות
אבל אפשר לחשב את זה אוטומטי

מצורף קוד שמוריד את הנתונים מגוגל שיטס שפורסם באינטרנט כקובץ CSV

שימו לב לשנות את הדברים הבאים

1. כתובת הקובץ כמובן
2. שם הטבלה
3. לייצר את הטבלה

Option Compare Database


Public Function CorrectHebrew(gibberish As String) As String

  Dim inStream As ADODB.Stream

  Set inStream = New ADODB.Stream
  inStream.Open
  inStream.Charset = "ISO-8859-1"
  inStream.WriteText gibberish
  inStream.Position = 0 ' bring it back to start preparing for the ReadText
  inStream.Charset = "UTF-8"
  CorrectHebrew = inStream.ReadText ' return the corrected text
  inStream.Close

End Function




Private Function GetFileFromWeb2(ByVal sURL As String) As String

    '* Requires Tools->References->Microsoft WinHTTP Services, version 5.1

    Dim oWinHttp As WinHttp.WinHttpRequest
    Set oWinHttp = New WinHttp.WinHttpRequest


    oWinHttp.Open "GET", sURL, False
    
    oWinHttp.SetRequestHeader "Accept-Language", "he-IL,he;q=0.9,en-US;q=0.8,en;q=0.7"
    oWinHttp.SetRequestHeader "Content-Type", "text/csv"
    
    oWinHttp.Send
   
    GetFileFromWeb2 = CorrectHebrew(oWinHttp.ResponseText)


End Function





Private Sub פקודה38_Click()

    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim strURL As String
    Dim strTableName As String
    Dim objStream As Object
    Dim strData As String
    Dim arrData() As String
    Dim arrFields() As String
    Dim arrRow() As String
    Dim i As Long

    ' Set the URL of the CSV file
    strURL = "https://docs.google.com/spreadsheets/d/e/2PACX-1vSrdzm22JIw1yW-D00DEtB_IrbujA6VHujfhV82BSkrGF-Oo2roVgnxSDWPrvo7QdXVWpfLhHDK4xDO/pub?gid=0&single=true&output=csv"

    ' Set the name for the new table
    strTableName = "NewTable"

    ' Set up a new database object
    Set db = CurrentDb


    strData = GetFileFromWeb2(strURL)


    ' Split the CSV data into rows and fields
    arrData = Split(strData, vbCrLf)
    arrFields = Split(arrData(0), ",") ' Assumes the first row contains field names

    ' Import the CSV data into the new table
    Set rs = db.OpenRecordset(strTableName)
    For i = 1 To UBound(arrData)
        arrRow = Split(arrData(i), ",")
        rs.AddNew
        For j = 0 To UBound(arrFields)
            rs.Fields(j).Value = arrRow(j)
        Next j
        rs.Update
    Next i
    rs.Close

    ' Close the recordset and database objects
    Set rs = Nothing
    Set db = Nothing

    MsgBox "Table created and data imported successfully!"
End Sub

הכי טוב זה שתתקין 32 סיביות