Tag: string

我应该select哪个提供者来通过AdoConnection连接到Excel版本11？: 我需要通过TADOConnection连接到Excel表，我不知道要写入ConnectionString属性。对于Excel版本8我使用Jet，对于12我使用ACE，那么11呢？而ConnectionString应该如何查看？

ADO – 如何从xls文件中select两列或多列具有相同名称的列？: 我有这样一个excel文件： | | A | B | C | D | | 1 | Name 1 | Name 2 | Name 3 | Name 2 | | 2 | Data | Data | Data | Data | | 3 | Data | Data | Data | Data | 如您所见，两列的标题具有相同的名称 – 名称2 。我的问题是，有可能告诉ADO引擎从哪个列select数据？目前我的select是这样的： SELECT […]

Perl：使用Excel模块通过write_formula（）读取string值: 我是Perl新手，试图自动化一些testing用例。我正在使用Spreadsheet :: WriteExcel和Spreadsheet :: ParseExcel模块。我不能够读取特定的单元格值作为string，虽然当我在Windows中打开相同的.xls文件，我可以看到作为string（PASS / FAIL）的值。我正在使用write_formula（）方法来编写string。我创build了一个示例项目来模拟相同的。我已经尽可能地简化了。关于下面的代码试图做什么的一点解释：连续写下去=> 10 10 PASS 10 10 PASS while循环控制了我们写了多less次10 10 PASS 第一个10是实际值，第二个10是预期值，然后使用公式通过或失败。你可以请build议为什么我不能在下面的代码中使用value（）方法读取PASS或FAIL作为string： use strict; use warnings; use Spreadsheet::ParseExcel; use Spreadsheet::WriteExcel; use Spreadsheet::WriteExcel::Utility; my $filename = "sample.xls"; my $workbook = Spreadsheet::WriteExcel->new($filename); my $worksheet = $workbook->add_worksheet(); my $col = 0; my $row = 0; […]

Excel VBA; 更新连接string: 我只是想让VBA更新一个OLEDB连接string。当我遍历代码时，我没有得到任何错误，但连接刷新失败，当我检查UI中的连接string时，显然我的代码根本没有改变（因此刷新失败）。我错过了什么？这里是代码： Sub UpdateQueryConnectionString(ConnectionString As String) With ActiveWorkbook.Connections("Connection Name"). _ OLEDBConnection .Connection = StringToArray(ConnectionString) End With ActiveWorkbook.Connections("Connection Name").Refresh End Sub 被送入的ConnectionString是： ConnectionString = = "Provider=SLXOLEDB.1;Data Source=SERVER;Initial Catalog=DATABASE" _ & ";User ID=" & Username & ";Password=" & Password & _ ";Persist Security Info=True;Extended Properties=" _ & Chr(34) & "PORT=1706;LOG=ON;CASEINSENSITIVEFIND=ON;INCLUDECALCFIELDS=ON;" & Chr(34) 函数StringToArray直接从http://support.microsoft.com/kb/105416上的示例4复制而来

将mysql数据导出到CSV后发出号码: 当我从数据库中获取数据并将其导出为csv文件时，我有以下问题：数字dosnt显示的前导零大数字显示这样 – > 1E+12 如何强制MS Excel通过PHP显示我的所有数据为string

比较两个string的元素: 我已经开发了以下代码来比较列A和D中的两个单元格（string），并记下相应B单元格中的D单元格值（如果find部分匹配）。 Sub CompareAndGuess() Dim strLen, aux As Integer Dim max1, max2 As Long Dim str As String Range("A1").Select Selection.End(xlDown).Select max1 = ActiveCell.Row Range("D1").Select Selection.End(xlDown).Select max2 = ActiveCell.Row For a = 2 To max1 str = Cells(a, 1) str = StrConv(str, vbUpperCase) strLen = Len(str) aux = strLen For l = 3 To strLen For d […]

在string – 数字 – string转换中保留前导0: 我正在研究工作中的文档跟踪表的macros。我使用一个提示用户input文档编号的button，我想根据以下编号约定指定一个默认编号。文件编号的前两个字符是后两年的数字（在这种情况下是15），然后是一个“ – ”，然后是五位数的序列号。我目前的代码查看最后input的文档，并递增最后5个字符，但是会截掉任何我想保留的前导零。这是提取代码以生成此默认编号（假设variables“prevNCRF”是在文档中find的以前的文档名称）： Sub codeChunkTester() Dim prevNCRF, defNCRFNum As String Dim NCRFNumAr() As String 'pretend like we found this in the sheet. prevNCRF = "15-00100" 'split the string into "15" and "00100" and throw those into an array. NCRFNumAr() = Split(prevNCRF, "-") 'reconstruct the number by reusing the first part and […]

在Excel中的单元格中添加单元格区域的文本: 我想连接一个单元格到一个单元格，没有macros/ VBScript。公式CONCATENATE()获取单个单元格。

部分单元格（或string）在Excelmacros中匹配: 我是VBA的新手，我想在两张纸之间进行部分string（或单元格）匹配。 Name1的一个例子是“IT主pipeSally Lim” Name2的一个例子是“Sally Lim” Name1 = Sheets("Work").Cells(RowName1, ColName1) Name2 = Sheets("Roster").Cells(RowName2, ColName2) 'This condition doesn't work If Name1 = "*" & Name2 & "*" Then 'The "Name2" comes out with a compile error: Invalid Qualifier Name2.Font.Strikethrough Exit Do Else End If 但是，它不工作。当我运行编码时，没有任何反应，或者popup一个错误。请帮忙编辑的编码： If ShiftName Like "*" & CashName & "*" Then […]