Программа выполняет сл. действия:
- открывает файл ексель
- вносит изменения
- закрывает измененный файл
- переносит его.
- Код: Выделить всё
Dim PathFile, PathDir, Path, PathSD, Rek As String
Dim xl As Excel.Application
Dim WB As Excel.Workbook
Dim WS As Excel.Worksheet
DoCmd.SetWarnings (False)
PathDir = "K:\1\1\"
PathFile = Dir(PathDir)
Do Until PathFile = ""
PathFile = Dir(PathDir)
Path = PathDir + PathFile
If PathFile = "" Then Exit Do
Set xl = CreateObject("Excel.Application")
xl.Visible = False
Set WB = Excel.Workbooks.Open(Path)
Set WS = WB.Worksheets(1)
WB.ActiveSheet.Unprotect
Rek = WS.Cells(19, 9).Value
WS.Cells(6, 3).Value = "ффф"
WS.Cells(7, 4).Value = "150"
If Rek = 0 Then
If Flag_Prod = 1 Then WS.Cells(8, 3).Value = "ййй" Else WS.Cells(8, 3).Value = "уцуц"
Else
If Flag_Prod = 1 Then WS.Cells(8, 3).Value = "хххх" Else WS.Cells(8, 3).Value = "ууууу"
End If
WS.Cells(10, 3).Value = "вапрва"
WB.Application.SaveWorkspace
WB.Application.Quit
xl.Application.Quit
Set WS = Nothing
Set WB = Nothing
Set xl = Nothing
PathSD = "\\комп\папка\" + PathFile
FileCopy Path, PathSD
Kill Path
loop
На моменте WB.Application.SaveWorkspace вылетает сообщение
"Файл RESUME.XLW уже существует в данном месте. Заменить?"
Естественно, данное сообщение является совершенно неуместным. Как мне корректно сделать работу?
ЗЫ: Я полный чайник и ламер, просьба поленьями не кидать!
