Tag: Excel的VBA的

从具有合并单元格的Excel文件中提取数据并存储在MySQL数据库中: 我有一个正常单元格的Excel文件以及合并的单元格和一个任务，将Excel文件中的每一行存储到MySQL数据库。我能够从Excel文件中获取每个单元格的数据，并将其存储在数据库中，除了来自合并单元格的数据。我的Java代码： FileInputStream input = new FileInputStream("/Users/test.xlsx"); Workbook wb = WorkbookFactory.create(input); Sheet sheet = wb.getSheetAt(0); for(i=0;i<no.ofrows;i++) for(j=0;j<no.ofcolomns;j++) { String var = String.valueOf(sheet.getRow(i).getCell(j)); }

在网站上显示excel实时更新: 我有一个连接到股票价格软件的Excel表格，因此excel表格按照股票价格软件反映实时价格。我想使用Excel表格或单元格中的数据来反映在网站或移动应用程序。还挺像API。我不介意保持电脑。 API对于实时股票价格非常昂贵，我只想在我的网站或移动应用上免费显示实时价格。我该怎么办？

EXCEL VBA将值分配给多个可变参数: 您好我想插入一个值从Excel到MySQL数据库。所以我的价值观在一排。每行约20+个单元。并且每个单元必须被input到数据库中的特定列。我需要的是我所拥有的简化代码。 SQLStr = "INSERT INTO submitteddrawings(Team,Name,MgtNo,JobNo,DrawingNo,Status,Version,SubMo,DwgSheet,ReusedDwg,PCChecked, N1A,N1B,N1C,N1D,N2A,N2B,N2C,N2D,N3A,N3B,N3C,N3D,N3E,N4A,N4B,N4C,N4D,N4E,N5A,N5B,N5C,N5D,N6,J1A,J1B,J1C,J2A,J2B,J2C,J2D,J2E,J3A,J3B,J3C,J3D,J3E,J3F,J3G) VALUES ('" & e & "', '" & f & "','" & g & "','" & h & "','" & i & "','" & j & "','" & k & "','" & l & "','" & m & "','" & n & "','" & […]

我应该为此创build一个索引？: 我使用adodb将数据从vba excel添加到mysql数据库中一切都很好，但速度很慢。整个过程大约需要5秒钟。我认为这是缓慢的原因是因为我正在过滤它： Dim rowid_batchinfo As String rs.Filter = "datapath='" + dpath + "' and analystname='" + aname + "' and reportname='" + rname + "' and batchstate='" + bstate + "'" If Not rs.EOF Then rowid_batchinfo = rs.Fields("rowid") cn.Execute "delete from batchinfo where rowid=" + rowid_batchinfo cn.Execute "delete from calibration where rowid='" […]

从Excel导入数据到MS Access: 我有一个有一些数据的excel文件，我需要使用VBA将所有的数据导入到MS Access中，然后在其上运行一个查询，最后在报告中显示数据。这怎么能成为现实呢？

从Excel导入访问: 我有一些VBA代码的麻烦，应该将Excel数据导入到我的访问数据库。当我运行代码，我得到一个运行时错误“运行时错误1004应用程序定义或对象定义的错误”。 With wks 'arrêter l'importation lorsque l'on rencontre une case vide While .Range(A & i).Value <> "" '(où pKeyCol représente la colonne et i la ligne) If (cnt = 10) Then 'pour éviter les messages lors de l'ajout des enregistrements DoCmd.SetWarnings False End If 'condition de remplissage de la table => eviter les doublons […]

没有重复，统计每天进入的人数: 我正在使用如下的工作表： date/时间徽章名称 2013年10月31日 8:01:02 AM 131078 YEO，Nita 8:03:17 AM 415416 PEH，魏二○一三年十月三十○日上午8:11:02 131098李，爱丽丝上午8:53:17 215416 EG，shi … 我想统计一天内没有重复input的人数。只是date，而不是确切的时间。每个人都有一个唯一的徽章号码。之后，我有另一个工作表，所有empoyees`徽章号码。我想比较这个表格中input的人物以排除访问者，也就是两个表格里面的人都保留着。然后算一下多less。综上所述，在一个月内，每天进入的人数不是访客数。并根据date绘制数字。如何使用Excel，数据透视表或VBA来完成这项工作？

如何closures从Excel-VBA脚本中调用的.exe错误消息？: 从vba调用外部.exe文件时，如下所示： Sub RunEXE() Dim wsh As Object SetCurrentDirectory "\\path\" 'Set Directory Set wsh = VBA.CreateObject("program.exe ""\\path\argument""", WindowStyle:=1, waitonreturn:=True) 是否有可能直接从VBAclosures错误窗口？代码调用程序并正确运行.exe并生成对我有用的所有数据，但要将数据返回到我的工作表，我必须确定此窗口（因为waitonreturn = true）：违规似乎是我不能影响我的VBA代码，但它不影响我所需要的.exe的部分，以执行我的代码所需的计算。我不希望深入到内存访问违反外部软件的世界，而是希望通过直接从VBA代码中获得好处来避免这个问题。如果我点击这个错误信息好，就我的代码而言，一切都是完美的。我不需要.exe来保存导致错误的文件，我已经有我需要的数据。是否有可能从我的Excel VBA代码的外部软件解雇一个错误窗口？注意：错误来自.exe程序，而不是来自Excel本身。

无法发送在Excel单元格中命名的文件附件: 我对VBA编程有点新，所以请耐心等待。我试图通过一个标准的电子邮件，而不是一个个性化的审计备忘录来自动化我的组织部门负责人的电子邮件。发送给某个人的每封电子邮件也应包含相应的附件。我有一个包含三列的电子表格：姓名，电子邮件地址以及我要分别在A，B和C中附加的文件的位置。我代表这是我可以在下面最好的。甲………………..乙………………Ç 名称………….电子邮件附件………… John Smith ….. a@b.com ….. Q：\ PLIU \ File1 Jane Smith ….. c@d.com ….. Q：\ PLIU \ File2 Jimm Smith ….. e@f.com ….. Q：\ PLIU \ File3 这是我到目前为止的代码，但我无法弄清楚如何将文件写入附件列，因为debugging给了我“找不到这个文件，validationpath和文件名是正确的。 Sub AttachSend() Dim objMail As Outlook.MailItem Dim intX As Integer Dim FileCount As Integer Dim MailAttachment As String Dim MailAddress […]

将Excel连接到Mysql更新问题: 我通过在Excel中的VBA连接到一个MySQL表，我正在更新它： Set cn = New ADODB.Connection cn.Open "DRIVER={MySQL ODBC 5.1 Driver};" & _ "SERVER=localhost;" & _ "DATABASE=employees;" & _ "USER=root;" & _ "PASSWORD=M1llen;" & _ "Option=3" 'lets get the batch info ' ' open a recordset Set rs = New ADODB.Recordset rs.Open "batchinfo", cn, adOpenKeyset, adLockOptimistic, adCmdTable ' all records in a table from Report […]