Вопрос:
Я программирую SCADA с Intouch R2 SP1. В этой SCADA я должен сделать несколько отчетов в excel. В отчете он просто набирает 10 значений в определенные ячейки. Дело в том, что код, который я использую, работает с Office 2010, который является версией на моем компьютере, но когда я установил SCADA на новом компьютере, мы купили лицензию Office 2016. Когда я пытаюсь создать сообщите с этим компьютером, что он делает все правильно, кроме как писать в ячейки.
Итак, мои вопросы таковы: кто-нибудь знает, как экспортировать эти данные в таблицу Excel, используя vb.net в Intouch Archestra Graphics? Если нет, возможно ли экспортировать данные для Excel с SQL Query?
Код, который я использую ниже, здесь вы можете увидеть, что я копирую файл excel в новое место, меняя его имя, и открываю новый файл excel. После этого я использую функцию WWPoke(), чтобы вставить нужные значения в Excel.
dim sourceDir as string; dim destDir as string; dim fileName as string; dim destName as string; dim sourceFile as string; dim destFile as string; dim modo as System.IO.FileMode; dim fechaini as string; sourceDir = «C:MIGRASCADAAcesur_Cogeneracion»; destDir = «C:InformesAcesur»; fileName = «Informe.xls»; destName = InTouch:$Day + «» + InTouch:$Month + «» + InTouch:$Year + «_» + InTouch:$Hour+ «» + InTouch:$Minute + «.xls»; sourceFile = System.IO.Path.Combine(sourceDir,fileName); destFile = destDir + «» + destName; ‘I copy the original file to the new location System.IO.File.Copy(sourceFile,destFile,true); ‘I open the copied file System.Diagnostics.Process.Start(«excel.exe»,destFile); ‘I send the data to excel — THIS IS THE PART THAT NOT WORKING WWPoke( «excel.exe», «Hoja1», «F10C4», FechaInicio); WWPoke( «excel.exe», «Hoja1», «F11C4», FechaFin); WWPoke( «excel.exe», «Hoja1», «F20C4″, StringFromReal(E,2,»f»)); WWPoke( «excel.exe», «Hoja1», «F21C4″, StringFromReal(Q,2,»f»)); WWPoke( «excel.exe», «Hoja1», «F22C4″, StringFromReal(V,2,»f»)); WWPoke( «excel.exe», «Hoja1», «F28C4″, StringFromReal(REE,2,»f»)); WWPoke( «excel.exe», «Hoja1», «F34C4″, StringFromReal(FT001,2,»f»)); WWPoke( «excel.exe», «Hoja1», «F35C4″, StringFromReal(FT002,2,»f»)); WWPoke( «excel.exe», «Hoja1», «F36C4″, StringFromReal(FT003,2,»f»)); WWPoke( «excel.exe», «Hoja1», «F37C4″, StringFromReal(FT004,2,»f»));
Спасибо!
Лучший ответ:
Проблема в том, что функция WWPoke() несовместима с 64-битной ОС, это не касается версии Office. Так что я создал файл.csv и с макросом excel импортирует данные в отчет.
