Tag: string

Excel外部数据连接崩溃在其他用户: 我有一个tool.xlsx文件，使用外部数据连接到Access数据库（都在networking驱动器上，对用户有适当的访问权限）。我有一个vbscript（代码如下），刷新该工作簿中的所有连接。当我运行这个脚本时，一切都像魅力一样，但是当一个同事运行这个脚本时，它不会抛出任何错误，但并不是所有的连接都被刷新。有任何想法吗？ Dim XLApp Dim XLWkb Set XLApp = CreateObject("Excel.Application") xlapp.visible = false xlapp.workbooks.open "\\networkpath\tool.xlsx" xlapp.displayalerts = false set wr = xlapp.workbooks.Open("\\networkpath\tool.xlsx") wr.refreshall xlapp.visible = false wr.Save wr.Close 这是来自tool.xlsx工作簿的连接string： Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=\\networkpath\db.accdb;Mode=Share Deny Write;Extended Properties="";Jet OLEDB:System database="";Jet OLEDB:Registry Path="";Jet OLEDB:Engine Type=6;Jet OLEDB:Database Locking Mode=0;Jet OLEDB:Global Partial Bulk Ops=2;Jet OLEDB:Global Bulk Transactions=1;Jet OLEDB:New Database […]

Excel – 单列中的string到多列中的字符: 我是新的Excel VB。目前，我想要做以下事情 – 从单元格读取。像这样的“010111”（二进制）。可以在表格1中的单元格A10中说明。写入多个单元格，像这样的信息。让我们说在表2.单元格B1到B6。像第2页B1-0第2页B2-1第2页第3页第2页第2页第4页第2页B5-1第2页B6 -1另外，我想使其具有通用性，想要有一个for循环或类似的东西可以做到这一点的dynamic细胞。即从纸张1-A（i）到纸张2-B（j）到B（j + n）。请帮我吗？这是可能从string中读取单个字符。我假设我们可以将二进制string作为string读取，然后可以将它们逐一放入列行中，使其对于任何行/列都是dynamic的。谢谢，Prateek

Excel匹配范围内的所有string中的最后一个单词… VBA: 我正在创build一个帮助分析歌曲写作技巧的小工具。我有一个数据库，今年在歌曲A的歌词。歌词一行一行（例如） 1. You're so indecisive of what I'm saying 1. Tryna catch the beat, make up your heart 1. Don't know if you're happy or complaining 1. Don't want for us to end, where do I start? 1. First you wanna go to the left then you wanna turn right 1. Wanna argue all […]

引用来自其他工作表的未知string: Sheet1有2列“产品”和“价格”。 Sheet2具有“Object.Price”forms的数据ex。 TV.500 我需要参考Sheet2上的数据并在Sheet1上将其生成到其相关列中。因此，对于TV.500，在Sheet1中，应在“产品”列中显示电视，在“价格”列中显示500。这是我迄今为止 With Worksheets("Report").Range("A2") .Value = Worksheets("Data").Range("A1") End With 这给了我所有的数据。我如何分割？这需要适用于程序未知的对象和价格的所有组合。

IFfunction来识别单元格的第一个字符: 我试图在Excel中使用IF函数，以便如果单元格的第一个字符是9 ，则显示的值应该是该单元格的最右边的八个字符，否则显示的值应该是最右边的四个字符。然而这个公式不起作用： =IF(LEFT(A2,1)=9,RIGHT(A2,8),RIGHT(A2,4)) 它始终返回最右边的四个数字，即使单元格A2中的数字以9开始。你能指出我在这里做错了吗？

将字母replace为其他字符时出错: 为什么这个代码不能正常工作？任务是只有在第一个出现的时候才从正确的位置replace（str。和strasse）。在testing中，它什么都不做。我猜这个错误是在这一行： x.Value = StrReverse(Replace(StrReverse(x.Value), strArr(b), "straße", 1, 1))这里是错误。 Sub strreplace() Dim strArr As Variant Dim b As Byte Dim x As Range strArr = Array("str.", "strasse", """") For Each x In Selection.Cells For b = 0 To UBound(strArr) x.Value = StrReverse(Replace(StrReverse(x.Value), strArr(b), "straße", 1, 1)) Next b Next x End Sub 我testing的第二个代码是： […]

.xlsx的连接string: 我正在尝试连接到Excel。打开.xls没有问题，但.xlsx（Excel 2013）使用连接string失败：使用旧版本： Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + %1 + ";Extended Properties='Excel 8.0;HDR=No;IMEX=1' 使用.xlsx它会返回有关错误文件格式的错误。尝试新的： Provider=Microsoft.ACE.OLEDB.12.0;Data Source='"+ %1 +"';Extended Properties='Excel 12.0 Xml;HDR=YES;IMEX=1'; 收到错误无法find可安装的ISAM 。我find了找出msexcl40.dll的命题并运行“regsvr32 msexcl40.dll”。我这样做，现在两个版本都会返回错误。你能帮我解决吗？ Office版本 – Office 365 2013

转义多个双引号: 我有一个具有以下值的工作表： {"billing":{"NIP (tylko firma)":"123-12-12-123","Firma":"Google"},"shipping":{"NIP (tylko firma)":"123-12-12-123","Nazwa firmy":"Google"}} 我想从给定单元格中提取第一个123-12-12-123 ，并将其输出到另一个单元格中的另一个单元格中。我试图使用FIND但是由于所有的引用我都遇到了麻烦。

嵌套的公式与error handling: 我有数据，并希望使用公式来确定安装的版本是x86还是x64： OSTYPE SHORTPATH VERSION VERSIOND Microsoft Windows 7 Enterprise Edition, 64-bit C:\PROGRAM FILES (X86)\JAVA\JRE1.8.0_45\BIN\ 8.0.45.14 8.0.45.14 x86 Microsoft Windows 7 Enterprise Edition, 64-bit C:\PROGRAM FILES\JAVA\JRE1.8.0_66\BIN\ 8.0.660.18 8.0.660.18 x64 Microsoft Windows 7 Enterprise Edition, 32-bit C:\PROGRAM FILES\JAVA\JRE6\BIN\ 6.0.510.9 6.0.510.9 x86 意图是VERSIOND将包含VERSION值，然后将x86附加到32位安装或x64位安装x64 。 If SHORTPATH contains "(x86)" then it's a 32bit install If SHORTPATH doesn't contain "(x86)" […]

发现几乎匹配一个string: 我需要检查单元格中的一些小的拼写更改。我如何比较两个单元格值并获得几乎相等的值。说如果只有一个字符像“jordan120”和“jordn120”缺失。我怎样才能得到这些值使用macros？我有两种情况下的精确匹配和几乎匹配。我已经尝试了vlookup函数并find方法。 Sub Changes() Dim chang, currentdest, presource As Worksheet Dim precount, currentcount, prelstrow, currentlstrow, rowno, rownow, rownow1 As Integer Dim somstrng, somstrng1, predept, currentdept, pregrade, currentgrade, convertion As String Dim table5, cellfound As Range Set chang = ActiveWorkbook.Sheets("Change") Set presource = ActiveWorkbook.Sheets("Previous") Set currentdest = ActiveWorkbook.Sheets("Current") precds = presource.Range("A" & […]