אוריי אמר:
אני רוצה לשמור קובץ csv כ xlsx
מצאתי את הקוד הזה
Sub CSVtoXLS()
'UpdatebyExtendoffice20170814
Dim xFd As FileDialog
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
Set xFd = Application.FileDialog(msoFileDialogFolderPicker)
xFd.Title = "Select a folder:"
If xFd.Show = -1 Then
xSPath = xFd.SelectedItems(1)
Else
Exit Sub
End If
If Right(xSPath, 1) <> "\" Then xSPath = xSPath + "\"
xCSVFile = Dir(xSPath & "*.csv")
Do While xCSVFile <> ""
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open Filename:=xSPath & xCSVFile
ActiveWorkbook.SaveAs Replace(xSPath & xCSVFile, ".csv", ".xlsx", vbTextCompare), xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
xCSVFile = Dir
Loop
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
הבעיה היא שהוא מוציא לי חלון לבחור תקיה ואני רוצה שהוא יבחר קובץ ללא חלון…
תחליף את
Sub CSVtoXLS()
Dim xSPath As String
Dim xCSVFile As String
Dim xWsheet As String
Application.DisplayAlerts = False
Application.StatusBar = True
xWsheet = ActiveWorkbook.Name
xSPath = "נתיב הקובץ"
Application.StatusBar = "Converting: " & xCSVFile
Workbooks.Open FileName:=xSPath
ActiveWorkbook.SaveAs xSPath, xlWorkbookDefault
ActiveWorkbook.Close
Windows(xWsheet).Activate
Application.StatusBar = False
Application.DisplayAlerts = True
End Sub
@אפר
זה מסובך בשבילי כי בכל מקום אחר בגיליון יש אימות נתונים אחר שמשתנה כל הזמן כך שזה לא שווה לי את התוצאה
אני חיפשתי פשוט לשנות את הברירת מחדל של ההודעה הזו אם לא אפשרי אני לא ישנה …
@אוריי
מתוקן
Public Function LastEntry(SheetAsText As String, ColumnAsText As String,optional WhatToReturn as string = "Value")
Dim NameSheetFirst As String
Dim NameCellFirst As String
NameSheetFirst = ActiveSheet.Name
NameCellFirst = ActiveCell.Address
Sheets(SheetAsText).Select
Range(ColumnAsText & "1").Select
Selection.End(xlDown).Select
Selection.End(xlDown).Select
Selection.End(xlUp).Select
select case WhatToReturn
case "Row","ROW","row"
LastEntry = ActiveCell.Row
case "Value","value","VALUE"
LastEntry = ActiveCell.value
End Select
Sheets(NameSheetFirst).Select
Range(NameCellFirst).Select
End Function
מכירות אמר:
שלום אני מעוניין בהשלמה אוטומטית של נתונים לדוגמא בשורה הראשונה כתוב ילד 1 ראובן בשורה השנייה ילד 2 ראובן אני מעונין שבשורה השלישית יופיע ילד 3 ראובן ובשורה הרביעית ילד 4 ראובן וכן הלאה אבל כיון שהמספר באמצע טקסט האקסל לא מצליח להשלים אוטומטית מי שיודע פתרון אשמח מאוד שישאיר כאן
@מכירות
אקסל זה תוכנת טבלאות כדי שיהיה אפשר לשחק עם הנתונים או לכתוב אותם בקלות
ע"כ לכתוב את השם ביחד עם המספר זה טעות ביסודה וגורם לשאלות מעין אלו
אמנם לפעמים צריכים גם את השם וגם את המס’ בתא אחד
אז במצב כזה משתמשים ב3 עמודות 1 למספר 2 לשם ו3 לחבר את עמודות 1 ו2…
בהצלחה…
@אוריי
