Suíte Office:
Tópico Oficial Dicas de Excel
__________________________________________
Envie MP para sugerir tópicos para esta seção.
__________________________________________
1
Sala destinada para questões, dúvidas e dicas envolvendo pacotes ou suítes de escritório destinados ao Windows: instalação, configuração, desempenho, implementações, suítes Office, Open Office, Libre Office etc.
from multiprocessing import connection
import win32com.client
# Start an instance of Excel
xlapp = win32com.client.DispatchEx("Excel.Application"
# Open the workbook in said instance of Excel
wb = xlapp.Workbooks.Open(r'C:\Users\A0142868\Downloads\Base_Alimentada.xlsx')
#xlapp.CalculateUntilAsyncQueriesDone()
##xlapp.DisplayAlerts = False
Connection_name_first_query = "Tabela1"
Connection_first_query = wb.Connections(Connection_name_first_query)
Connection_first_query.OLEDBConnection.BackgroundQuery = False
Connection_first_query.Refresh()
xlapp.CalculateUntilAsyncQueriesDone()
Connection_name_second_query = "Tabela2"
Connection_second_query = wb.Connections(Connection_name_second_query)
Connection_second_query.OLEDBConnection.BackgroundQuery = False
Connection_second_query.Refresh()
xlapp.CalculateUntilAsyncQueriesDone()
table_name = "Tb1"
worksheet = wb.Worksheets("Planilha2"
worksheet.ListObjects(table_name).Refresh()
table_name2 = "Tb2"
worksheet = wb.Worksheets("Planilha2"
worksheet.ListObjects(table_name2).Refresh()
wb.Save()
wb.Close()
xlapp.Quit()
print('Concluido')
Traceback (most recent call last): File "C:\Users\Eu\source\repos\PythonApplication7\PythonApplication7\PythonApplication7.py", line 14, in Connection_fist_query = wb.Connections(Connection_name_first_query) ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ File "C:\Users\Eu\AppData\Local\Temp\gen_py\3.11\00020813-0000-0000-C000-000000000046x0x1x9.py", line 6444, in <b>call</b> ret = self.<em>oleobj</em>.InvokeTypes(0, LCID, 2, (9, 0), ((12, 1),),Index ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ pywintypes.com_error: (-2147352567, 'Exceção.', (0, None, None, None, 0, -2147352565), None) Pressione qualquer tecla para continuar. . .[/font][/size][/color]
Private Sub conferir_Click()
If slide9.Resultado.Value = 6 Then
slide9.acertou.Visible = True
Else
slide9.errou.Visible = True
End If
End Sub