Как отследить дискету
написал тут прогу для хороших знакомых.Файл очень тяжелый,на дискету не поместится.А им надо все время переносить данные одного листа с одного компа на другой.Я пошел по следующему пути.На компе с которого забирают данные перебрасывается нужный лист в новую книгу,и эта новая книга затем
ActiveWorkbook.SaveAs Filename:="A:\Переносной Цех№1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
А на втором компе,соответственно
ChDir "A:\"
Workbooks.Open Filename:="A:\Переносной Цех№1.xls"
и изэтой книги,лист вставляется в нужный.А сами вопросы такие
1.как отследить,что забыли вставить дискету;
2.как отследить,что дискета переполнена;
3.как отследить,что на дискете нет нужного файла
ActiveWorkbook.SaveAs Filename:="A:\Переносной Цех№1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
А на втором компе,соответственно
ChDir "A:\"
Workbooks.Open Filename:="A:\Переносной Цех№1.xls"
и изэтой книги,лист вставляется в нужный.А сами вопросы такие
1.как отследить,что забыли вставить дискету;
2.как отследить,что дискета переполнена;
3.как отследить,что на дискете нет нужного файла
Цитата:
Originally posted by Штурман
написал тут прогу для хороших знакомых.Файл очень тяжелый,на дискету не поместится.А им надо все время переносить данные одного листа с одного компа на другой.Я пошел по следующему пути.На компе с которого забирают данные перебрасывается нужный лист в новую книгу,и эта новая книга затем
ActiveWorkbook.SaveAs Filename:="A:\Переносной Цех№1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
А на втором компе,соответственно
ChDir "A:\"
Workbooks.Open Filename:="A:\Переносной Цех№1.xls"
и изэтой книги,лист вставляется в нужный.А сами вопросы такие
1.как отследить,что забыли вставить дискету;
2.как отследить,что дискета переполнена;
3.как отследить,что на дискете нет нужного файла
написал тут прогу для хороших знакомых.Файл очень тяжелый,на дискету не поместится.А им надо все время переносить данные одного листа с одного компа на другой.Я пошел по следующему пути.На компе с которого забирают данные перебрасывается нужный лист в новую книгу,и эта новая книга затем
ActiveWorkbook.SaveAs Filename:="A:\Переносной Цех№1.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
А на втором компе,соответственно
ChDir "A:\"
Workbooks.Open Filename:="A:\Переносной Цех№1.xls"
и изэтой книги,лист вставляется в нужный.А сами вопросы такие
1.как отследить,что забыли вставить дискету;
2.как отследить,что дискета переполнена;
3.как отследить,что на дискете нет нужного файла
Ну сделай Dir("A:\*.*")
и On Error соответственный.
так и сделал в принцыпе,но вдруг это как то можно отследить еще как то
Цитата:
Originally posted by Штурман
так и сделал в принцыпе,но вдруг это как то можно отследить еще как то
так и сделал в принцыпе,но вдруг это как то можно отследить еще как то
Так ведь если мне не изменяет память, Эксель сам при попытке записать/открыть напишет что не так.
А еще есть в Виндах такая штука - портфель (briefcase). Как раз, чтобы синхронизировать данные из разных мест.
Цитата:
Originally posted by Cutty Sark
Так ведь если мне не изменяет память, Эксель сам при попытке записать/открыть напишет что не так.
А еще есть в Виндах такая штука - портфель (briefcase). Как раз, чтобы синхронизировать данные из разных мест.
Так ведь если мне не изменяет память, Эксель сам при попытке записать/открыть напишет что не так.
А еще есть в Виндах такая штука - портфель (briefcase). Как раз, чтобы синхронизировать данные из разных мест.
В Access нет, вроде, никаких способов, кроме как проверять через Dir. Можно, конечно, использовать API функции разные (есть такие), но это бесполезно, чем не хватает Dir-а?