ReSQL.ru
     
powered by simpleCommunicator - 2.0.40     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / DBF-XLS-Графики
7 сообщений из 7, страница 1 из 1
DBF-XLS-Графики
    #40016167
Arimle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arimle
Гость
Добрый день всем!
Ест DBF файл и этот файл копирую в XLS файл.
Код: plsql
1.
2.
use q1.dbf
copy to q1 xl5


Потом я в этом XLS файле должен создавать графики с помощи макроса:
Код: plsql
1.
2.
3.
4.
5.
6.
Sub graphData()
    Range("A1:E8").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'List1'!$A$1:$E$8")
    ActiveChart.ChartType = xl3DColumn
End Sub


Здесь проблем нету. Все работает. Но, проблема в том что, каждый раз создается новый Q1.XLS файл. Как можно делать так что, каждый раз новосозданный Q1.XLS файл програмно добавилась макрос graphData?
...
Рейтинг: 0 / 0
07.11.2020, 04:49
| Ответить | Цитировать | Написать  
DBF-XLS-Графики
    #40016168
Arimle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arimle
Гость
Для избажение этого проблема создал другой файл Q1.XLSM и в Excel добавил в этот файл макрос graphData. Потом в этот файл (Q1.XLSM) с помощи макроса добавляю данные из Q1.XLS.
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub Auto_Open()
Application.ScreenUpdating = False 'отключаем обновление экрана
Application.DisplayAlerts = False ' отключаем вывод сообщений
' открываем файл-донор и с  листа копируем всю иинформацию
Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "Q1.xls"
Sheets("Q1").Select
Cells.Select
Selection.Copy
'активируем окно с файлом-приемником и вставляем инфу
Windows("Q1.xlsm").Activate
Worksheets("Q1").Select
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' активируем окно с файлом-донором и закрываем его без сохранения
Windows("Q1.xls").Activate
ActiveWorkbook.Close SaveChanges = False
' активируем окно с файлом-приемником
Windows("Q1.xlsm").Activate
 Application.ScreenUpdating = True 'включаем обновление экрана
Application.DisplayAlerts = True 'включаем вывод сообщений
End Sub


При открытие этого файла (Q1.XLS) каждый раз копируется данные из Q1.XLS исразу видно графики. В Excel это нормально работает.
Но, когда запускаю из фокспро данные не копируется из Q1.XLS.
Код: plsql
1.
2.
3.
loExcel = CreateObject("Excel.Application")
loExcel.Workbooks.Open("D:\M_S1\DATA\Q1.xlsm")
loExcel.Visible = .T.


Скажите пожалуйста, чт я не правильно делаю?
...
Рейтинг: 0 / 0
07.11.2020, 04:51
| Ответить | Цитировать | Написать  
DBF-XLS-Графики
    #40016366
Arimle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arimle
Гость
Arimle
Для избажение этого проблема создал другой файл Q1.XLSM и в Excel добавил в этот файл макрос graphData. Потом в этот файл (Q1.XLSM) с помощи макроса добавляю данные из Q1.XLS.
Код: plsql
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub Auto_Open()
Application.ScreenUpdating = False 'отключаем обновление экрана
Application.DisplayAlerts = False ' отключаем вывод сообщений
' открываем файл-донор и с  листа копируем всю иинформацию
Workbooks.Open Filename:=ThisWorkbook.Path & Application.PathSeparator & "Q1.xls"
Sheets("Q1").Select
Cells.Select
Selection.Copy
'активируем окно с файлом-приемником и вставляем инфу
Windows("Q1.xlsm").Activate
Worksheets("Q1").Select
Cells(1, 1).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
' активируем окно с файлом-донором и закрываем его без сохранения
Windows("Q1.xls").Activate
ActiveWorkbook.Close SaveChanges = False
' активируем окно с файлом-приемником
Windows("Q1.xlsm").Activate
 Application.ScreenUpdating = True 'включаем обновление экрана
Application.DisplayAlerts = True 'включаем вывод сообщений
End Sub


При открытие этого файла (Q1.XLS) каждый раз копируется данные из Q1.XLS исразу видно графики. В Excel это нормально работает.
Но, когда запускаю из фокспро данные не копируется из Q1.XLS.
Код: plsql
1.
2.
3.
loExcel = CreateObject("Excel.Application")
loExcel.Workbooks.Open("D:\M_S1\DATA\Q1.xlsm")
loExcel.Visible = .T.


Скажите пожалуйста, что я не правильно делаю?
...
Рейтинг: 0 / 0
08.11.2020, 19:19
| Ответить | Цитировать | Написать  
DBF-XLS-Графики
    #40016375
Arimle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arimle
Гость
Помогите пожалуйста, кто знает как это сделать?
...
Рейтинг: 0 / 0
08.11.2020, 21:22
| Ответить | Цитировать | Написать  
DBF-XLS-Графики
    #40016421
Фотография Redrik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Redrik
Участник
Arimle,

может тут посмотреть?
https://www.sql.ru/forum/297443/kak-zapustit-makros-excel-iz-foxpro?hl=?????? ???????
...
Рейтинг: 0 / 0
09.11.2020, 09:11
| Ответить | Цитировать | Написать  
DBF-XLS-Графики
    #40016427
Arimle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arimle
Гость
Спасибо,Redrik.
Я пробовал и этот вариант пока искал решение.
Код: plsql
1.
2.
3.
4.
5.
m.file1=0
ole1=createobject('Excel.Application')
ole1.visible=.t.
ole1.workbooks.open("D:\M_S1\DATA\q1.xlsm")
Ole1.Run("K1",m.file1)


Такая ошибка получается как показано 1.JPG. Не понимаю почему так, потому что, у меня такой макрос ест.
...
Рейтинг: 0 / 0
09.11.2020, 09:46
| Ответить | Цитировать | Написать  
DBF-XLS-Графики
    #40016859
Arimle
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Arimle
Гость
Ест и другой пример (FORM1.SCT. Здесь XLS файл обнавляется с помощю _cliptext. Но, у меня есть готовый XLS файл (Q1.XLS). Как можно для этого файла создать такая диаграмма?
...
Рейтинг: 0 / 0
10.11.2020, 16:08
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / DBF-XLS-Графики
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru             Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&fpage=3&tid=1581498]:
 0ms
get settings:
 7ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 25ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 12ms
total:  125ms
созд. / загр.: 125ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]