use q1.dbf
copy to q1 xl5

Sub graphData()
    Range("A1:E8").Select
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.SetSourceData Source:=Range("'List1'!$A$1:$E$8")
    ActiveChart.ChartType = xl3DColumn
End Sub

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

loExcel = CreateObject("Excel.Application")
loExcel.Workbooks.Open("D:\M_S1\DATA\Q1.xlsm")
loExcel.Visible = .T.