Доброго дня Вам!
Помогите разобратся,есть макрос,смысл которого открывать файлы в одной из папок,и автоматически сейвить в другую приклеивая к старому имени дату
Function Open_XL_File() As String
m2: Filename = Application.GetOpenFilename(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=False, Title:="Izvēlieties failu")
msg = "Jums nav izvēlieties failu! Turpināt?"
If VarType(Filename) = vbBoolean Then
Select Case MsgBox(msg, 52, Application.Name)
Case 6: GoTo m2
Case 7: Exit Function
End Select
End If
Set oWbook = Workbooks.Open(Filename)
Open_XL_File = oWbook.Name
End Function
Sub test() '
ChDrive "O:"
ChDir "O:\COMMON.DIR\V.O.N.G\PAM_Zhurnal\new"
file1 = Open_XL_File
Debug.Print "Otkriti faili: ", file1
OldName = ActiveWorkbook.FullName
NovoeImjaFaila = "O:\COMMON.DIR\V.O.N.G\PAM_Zhurnal\done\" & Replace(ActiveWorkbook.Name, ".xls", "") & Format(Now, " - DD MMMM YYYY HH-MM-SS ") & ".xls"
ActiveWorkbook.SaveAs NovoeImjaFaila
Kill OldName
End Sub
так вот всё хорошо работало на всех компах,но в один "прекрасный" момент на компах с EXCEL более ранних выпусков (1998 или 2000)макрос стал ругатся на функцию Repleace в строке NovoeImjaFaila,ето возможно как-то вылечить? и почему раньше работало а сечас перестало
Помогите разобратся,есть макрос,смысл которого открывать файлы в одной из папок,и автоматически сейвить в другую приклеивая к старому имени дату
Function Open_XL_File() As String
m2: Filename = Application.GetOpenFilename(FileFilter:="Microsoft Excel Files (*.xls), *.xls", _
MultiSelect:=False, Title:="Izvēlieties failu")
msg = "Jums nav izvēlieties failu! Turpināt?"
If VarType(Filename) = vbBoolean Then
Select Case MsgBox(msg, 52, Application.Name)
Case 6: GoTo m2
Case 7: Exit Function
End Select
End If
Set oWbook = Workbooks.Open(Filename)
Open_XL_File = oWbook.Name
End Function
Sub test() '
ChDrive "O:"
ChDir "O:\COMMON.DIR\V.O.N.G\PAM_Zhurnal\new"
file1 = Open_XL_File
Debug.Print "Otkriti faili: ", file1
OldName = ActiveWorkbook.FullName
NovoeImjaFaila = "O:\COMMON.DIR\V.O.N.G\PAM_Zhurnal\done\" & Replace(ActiveWorkbook.Name, ".xls", "") & Format(Now, " - DD MMMM YYYY HH-MM-SS ") & ".xls"
ActiveWorkbook.SaveAs NovoeImjaFaila
Kill OldName
End Sub
так вот всё хорошо работало на всех компах,но в один "прекрасный" момент на компах с EXCEL более ранних выпусков (1998 или 2000)макрос стал ругатся на функцию Repleace в строке NovoeImjaFaila,ето возможно как-то вылечить? и почему раньше работало а сечас перестало
