1回答
我正在研究MS Access，并试图从完整的文件路径中提取文件名。例如，考虑表中的列名：
Path | Directory | FileName | extension
---------------------------------------------------------
C:\temp\xyz.txt | C:\temp | xyz | txt
C:\myPath\tp.doc | C:\myPath | tp | doc
在Access查询设计视图中，我使用以下方法生成"Di
浏览 5提问于2014-01-23得票数 1
回答已采纳
我需要通过VBS获得PC的IP地址，我正在使用以下方法：
strQuery = "SELECT * FROM Win32_NetworkAdapterConfiguration WHERE MACAddress > ''"
Set objWMIService = GetObject( "winmgmts://./root/CIMV2" )
Set colItems = objWMIService.ExecQuery( strQuery, "WQL", 48 )
For Each objItem In colIt
浏览 4提问于2016-03-23得票数 2
回答已采纳
我试图从一列中检索数据。我试图用
Trim(Mid([RIC_Name],InStr([RIC_Name],"=")+1))
这只适用于"=“可用的地方。我也想为“”做同样的事。
例如：
.abcdx.fx
werer=lu
jhgjj.nx
输出：
fx
lu
nx
这在一个表达式中是可能的吗？
浏览 1提问于2013-08-02得票数 0
回答已采纳
如果只对select语句使用以下查询，则access中的查询工作良好。一旦它成为一个附加查询，它就会产生一个“无效的过程调用”错误。
我把冒犯的专栏缩小为"Publ“和"PublLong”。两者都是长文本字符串。如果删除这两列，则查询将无错误地更新。
下面是[Bezeichung]字段中的一个示例数据点：
publications.bank.com/publ-dl-ch/pdf/WhatsUp_20181113_en.pdf
我检查了它要插入的表，数据类型是相同的，也没有看到任何其他会阻止插入的设置。
我怎么才能让它工作呢？
INSERT INTO tbl_Matomo
浏览 0提问于2018-11-14得票数 0
回答已采纳
2回答
获取并编辑文件名
、、
我希望收回一个txt文件，然后编辑文件名(将“转换”添加到文件名)和扩展名(从.r01到.txt)。这样我就可以知道txt文件是否被转换了。
这是到目前为止我的代码；
Dim infilename As Variant
infilename = Application.GetOpenFilename("Text & r01 Files (*.r01;*.txt),*.r01;*.txt", , "Open Neutral File", "OPEN")
浏览 3提问于2013-07-22得票数 0
回答已采纳
1回答
我有这样一个字段，我只想在水晶报告中显示第一个/最新的条目：
05/01/2018 00:00:00
04/01/2018 00:00:00下午
03/01/2018 00:00:00下午更多的笔记
下面是我一直试图使用的代码，但是我得到了一个错误：“下标必须介于1和数组大小之间。”有人能帮我指出正确的方向吗？
stringvar array csl;
stringvar return;
csl:=split({table.field},chr(13));
//csl[1]
if isnull({table.field}) then return:= ""
else retur
浏览 0提问于2018-05-08得票数 1
回答已采纳
我想从存储在单元格中的字符串中提取URL。
在下面的例子中，字符串是A2格式的，我只想提取"abcd.co.uk"。你能帮帮忙吗？
abcd company
. local technicians
. solutions
. Experts ¡n all areas
abcd ***abcd.co.uk***
我尝试了多种方法，但都不能让它工作。
Sub url()
abc = Range("A2")
t_temp = Split(abc, ".co.uk")
Range("A3") = t_temp
浏览 1提问于2016-03-09得票数 1
1回答
我有一个webAddresses的列表。我需要从地址中提取域名。
webAddress样品
http://1life.co
http://1rage.com
http://1-solar.com
http://1stplayable.com
http://1velocity.net
http://microsoft.com
http://21cm.com
http://21csi.com
http://23half.com
http://2bsolutions.net
我要找回这个：
1life
1rage
1-solar
1stplayable
1velocity
microsoft
21
浏览 1提问于2016-09-13得票数 0
回答已采纳
我一直试图从文件结构中找到扩展名，为此我很难使用InstrRev(文件名，“”)。但不是返回4，而是返回30，和Instr一样.
有人知道一个奇怪的错误，会导致excel向两个相反的函数提供相同的结果吗？
你好，丹尼尔
浏览 2提问于2016-12-15得票数 8
回答已采纳
如果我有一个文件的完整路径：
eg. c:\files\file.txt
获取此文件的文件夹：eg. c:\files\的最简单方法是什么？
浏览 0提问于2011-03-21得票数 2
回答已采纳
我花了很长时间在Excel中搜索一个简单的反向查找函数，发现了一些公式，它们对我的口味来说太长了(例如)。
因此，我最终创建了我自己的更简单的方法，如下所示，它通过查找最后一个空格(或从右到左的第一个空格)的位置来给出字符串中的最后一个单词。
=RIGHT(A1,FINDrev(” “,A1))
如果你在上面的句子上运行这个公式(放在单元格A1中)，它会给出结果“left”。您只需定义一个3行的VBA UDF FINDrev()，并将其保存在永久可用的xlam插件中：
Public Function FINDrev(Find_text As String, Within_text As Str
浏览 32提问于2019-10-26得票数 0
2回答
我有一个excel电子表格，其中有一个包含特定字符串的列。我需要在另一列中提取该字符串的一部分。
数据如下：
Column A
---------------------------------
FIS/SIFT/SBG091241012FIS/SIFT/SBG091241012
FIS/SIFT/SBG091311212FIS/SIFT/SBG09111212
..
...
excel中是否有任何公式可用来提取正反斜杠(/)后字符串的最后部分。在上面的例子中，这些例子是：
SBG091241012
SBG09111212
请注意，斜杠(/)后面的字符串的最后一部分是可变长度的，因此我们可能
浏览 6提问于2013-07-23得票数 2
回答已采纳
1回答
我想拆分一些文本，然后将"_@"添加到拆分的文本中。
例如：
S106-137-800_BOMS_0.xls > S106-137-800_BOMS_@ 0
到目前为止，我的代码如下：
k = InStr(str, "_")
j = InStr(k + 1, str, "_")
i = InStr(j + 1, str, ".")
rw.Offset(0, 1) = Left(str, j - 1)
rw.Offset(0, 2) = Mid(s
浏览 2提问于2017-05-04得票数 0
回答已采纳
我在下面的vbscript中得到了类似于类型不匹配的错误：'instrev‘。
我正在尝试重命名M:\New文件夹中存储的所有excel文件，并在扩展名之前附加MMDDYYYY时间戳
如Test.xls to Test06152013.xls
我正在尝试获取不带扩展名的文件名&似乎在该逻辑中遇到错误..我也在尝试不让我的vbscript重命名为itself..appreciate您的输入
set oFso = createobject("scripting.filesystemobject")
sDirectorypath = "M:\New folde
浏览 7提问于2013-06-10得票数 0
2回答
我要在Excel中删除右边的文本和连字符。
My column示例：
Fresh Start Recovery, Inc. - Wayne
FSA Property Mgmt - Danny
Georgia Securing Svcs, Inc. - Katrina
Georgia - SFFS - Joe & Roxana
Greenwood - Lonnie
Griffis Recovery, LLC - Tyler (5% WC)
Hi Cap, Inc. - Doug
我需要它看起来像这样：
Fresh Start Recovery, Inc.
FSA Property Mgm
浏览 3提问于2011-11-28得票数 1
回答已采纳
我有一个字段，其中包含不同字符串的连接文本，需要对其进行分隔。我需要短语和该短语出现在两个单独的字段中的次数计数，然后重复相同的过程为每个额外的短语。
表字段文本示例：
"some text":2；some:other NEAR text:1；
预期结果：
字段1：“一些文本”，字段2: 2，字段3:一些:其他邻近文本，字段4 1
我遇到的问题是，当我使用":“和";”来使用Len、Instr、InstrRev、Left、Right和Mid函数来定界域时，它会将"some:other NEAR text“字符串定界为"some”和"oth
浏览 2提问于2017-04-27得票数 0
3回答
如何在VBA中编写函数，帮助我在文件之前获得最后一个文件夹(例如:This文件夹)。
P:\Folder1\..\Thisfolder\Test.txt
我只想提取:这个文件夹
浏览 2提问于2016-08-03得票数 0
回答已采纳
1回答
更新日期字段
、、
日期字段名: EmailDate，表名: MissingT，备忘录字段名:工作日志。
我试图查询工作日志并找到一个单词“有效日期：”，并在“生效日期：”后面的同一行中获取其余字符。然后用它更新"EmailDate“字段。
UPDATE MissingT SET MissingT.Emaildate = mid([Worklog],(InStr(1,[Worklog],'Effective Date: ')+16),13)
WHERE (((MissingT.[worklog]) Like "*" & 'Effective Date: &
浏览 4提问于2015-01-14得票数 0
回答已采纳
下面这一行导致了一个我似乎无法调试的错误。错误表示“Object required”，据我所知，我为函数和所有方法提供了适当的对象。
变量"first“被初始化为字符串，该行位于For循环中，因此使用了"i”变量。
first = Right(Sheets("Sheet1").Cells(i, 1).Text, Sheets("Sheet1").Cells(i, 1).Text.LastIndexOf(" "))
浏览 2提问于2016-10-16得票数 0
回答已采纳
我有一个工作表，其中包括从网页导入的数据。在第二个工作表中，我有一个要求最低价格和最高价格的单元格，该单元格来自导入的数据。问题是，数据在刷新时可能会移动到不同的单元格，因此我的代码需要查找一些特定的措辞来找到我需要的价格，而不是每次都将其定向到相同的单元格
我需要提取的导入数据表中的信息将始终在此文本字符串中，它将始终在第15-35行之间的某个地方找到，但会在网站刷新时移动。第一个数字(71.00)需要提取到单元格中的另一个工作表中，要求最低价格，而第二个数字(75.00)是最高价格。这些价格可以改变，所以我可以只查找这些数字并提取它们。
屠宰公牛:产量等级1-2 1000-1500磅150
浏览 1提问于2011-10-27得票数 0
3回答
我可以从filedialog函数中选择文件，并将文件路径存储在字符串中。但是我也想要所选路径的文件夹名。请告知如何从select文件中获取文件夹路径。
所选文件如下：
U:\public\2016\Macro\CD-CW\109 file.xlsx
我想展示给你，直到：
U:\public\2016\Macro\CD-CW\
我的代码
Dim fd As Office.FileDialog
Set fd = Application.FileDialog(msoFileDialogFilePicker)
With fd
.AllowMultiSelect = False
.Tit
浏览 1提问于2017-03-07得票数 4
首先，如果这是个愚蠢的问题，我真的很抱歉，但我只是在网上找不到答案。我有一个问题要问任何熟悉使用vba将相对公式改为绝对公式的人。
我现在的问题是，我的绝对公式是通过计算其他列(C列)的不同单元格条件的行差来确定的，因为我使用vba跨列(B列)输入了多个公式。因此，我想要达到的绝对公式是不可预测的，而且是不断变化的。
Set Rng = Range(Cells(2, 3), Cells(lastrow, 3))
Range("B2").Select
startb = lastrow
For b = lastrow To 2
浏览 4提问于2016-10-25得票数 0
回答已采纳
尝试使用宏中的DIR函数来确定文件夹是否存在。已经找到以下代码
Function FileOrFolderExistsOnMac(FileOrFolderstr As String) As Boolean
Ron de Bruin : 1-Feb-2019
Function to test whether a file or folder exist on a Mac in office 2011 and up
'Uses AppleScript to avoid the problem with long names in Office 2011,
'limit is max
浏览 1提问于2019-10-04得票数 2
Access VBA让Instr返回一个字符串在另一个字符串中第一次出现的位置。
Instr ( [start], string_being_searched, string2, [compare] )
有什么方法可以返回一个字符串在另一个字符串中最后一次出现的位置吗？
浏览 2提问于2013-07-04得票数 7
回答已采纳
3回答
我在access中工作，并使用VBA在中进行查询--我有变量名，所以不能在access中使用查询向导
我有以下两张表：
tblKabelInfo
以及一个名称根据程序中的其他内容而变化的表。
tblName1 as String
这些桌子看起来如下：
tblKabelInfo:
+--------------+----------+----------+----------+
| Kabelnummer | data |more data |even more |
+--------------+----------+----------+----------
浏览 0提问于2013-07-24得票数 1
回答已采纳
Hia，我在形成一些SQL查询时遇到了一些困难。目前我使用的是：
InStrRev(TABLE.[_URL],"/")+1) AS OUTPUT
在输入URL的情况下-我想提取最后一部分，例如：
www.url.com/some/text/here
应该返回
here
总是有3个斜杠，虽然我张贴的代码片段工作得很好；但只有在可访问的范围内。
当我尝试在access之外使用它时--我发现了错误--有什么可供我选择的建议吗？
浏览 1提问于2013-03-26得票数 0
回答已采纳
我正尝试在mac上的Excel2010中实现正则表达式，但对于任何公式和数据，我得到的都是#VALUE错误
下面是我在一个模块中的实现：
Function RegExp1(ReplaceIn, ReplaceWhat As String, _
ReplaceWith As String, Optional IgnoreCase As Boolean = False)
Dim re As Object
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = IgnoreCase
re.
浏览 0提问于2011-11-12得票数 1
回答已采纳
有一个名为"InStrRev“的函数在Access中运行良好，但是当我使用相同的函数在C# windows表单中获取记录时，会弹出一条错误消息：
未识别的函数'InStrRev‘在表达。
是否有某种方式可以使用此函数，还是在Access查询中可以使用其他函数从字段中获取任何字符的最后一个索引？
浏览 8提问于2014-09-12得票数 2
回答已采纳
1回答
对于在两个不同的位置保存和创建文件备份版本，下面的操作非常好，但我希望更改文件名中字符串的顺序。文件名第一，日期和时间戳秒。到目前为止还没有成功。
Sub SaveToLocations()
' Saves active file to current plus two other backup locations, appends date and time in front of file name
Dim datim As String
datim = Format(CStr(Now), "yyyy_mm_dd_hh_mm_ss_")
浏览 1提问于2019-03-30得票数 0
回答已采纳
2回答
我有一个字段( formats )，它有不同格式的文本数据。我想更新数据并制定一致的格式。目前的数据如下：
22-Jan-2014-0101
22-Jan-2014-0101
23-Jan-14-10001
QA Calibration C
23-Jan-14-10005
我想要的是YYYY-MM-DD-##### --我必须忽略Alpha字符串("QA .“)
我有一个select语句，它是报告(缺少操作符) --有人能告诉我错误在哪里吗？
SELECT SIDENT,
CASE WHEN SUBSTRING(SIDENT, 10, 1) = '-' THEN
浏览 2提问于2014-03-13得票数 1
回答已采纳
我使用以下vba代码从一个excel工作表中的多个txt文件(由管道‘\’字符分隔)中导入数据：
Sub LoopFiles()
'Variable Declaration
Dim sFilePath As String
Dim sFileName As String
'Specify File Path
sFilePath = Application.ActiveWorkbook.Path
'Check for back slash
If Right(sFilePath, 1) <> "\" Then
sFilePath =
浏览 3提问于2020-11-02得票数 0
我有一个字符串，它在任何时候都可以包含一个或多个/字符，也可以不包含。我希望能够基于这个字符串创建一个新的字符串。新字符串将包括原始字符串中最后一个/之后的每个字符。
浏览 2提问于2012-12-13得票数 0
回答已采纳
我正在使用MS Access中的SQL。我从Excel导入的其中一列的日期和时间格式很奇怪，如下所示： Jan 12 2021 07:55:14 AM PST MS Access不会将其识别为日期和时间，因此不会将其转换为日期和时间。我正在尝试自动化一些步骤，所以不想让用户在excel中手动分隔这一列，并转换为DD-MM-YYYY格式。 我只需要提取日期，它几乎总是11个字符的长度。然而，由于我是新手，我无法解析它，现有的帖子也没有多大帮助(或者我不能理解)。
浏览 25提问于2021-01-19得票数 0
回答已采纳
我的文件保存在主文件之外。不幸的是，字符限制正在接近超过excels的限制，我想看看是否有可能在VBA中将此公式实现为工作表函数？
公式：=TRIM(RIGHT(SUBSTITUTE(E2," ",REPT(" ",100)),100))
用于保存我的文件的vba行：.SaveAs Filename:=Basepath & dt & "_" & Manager & "_Employee Impacts File", FileFormat:=xlOpenXMLWorkbook
我是这样想的：&
浏览 25提问于2019-10-23得票数 0
回答已采纳
我试图查询我的数据库，只检索字段名的一部分。目前，我使用以下代码：
Dim sSQL = "SELECT Mid([Document Name], Len([Document Name]) - 11, 4) As [Year], Count([Year]) As [Totals] FROM Archief Group By Mid([Document Name], Len([Document Name]) - 11, 4) Order By Mid([Document Name], Len([Document Name]) - 11, 4) DESC ;"
Dim dt As
浏览 3提问于2021-03-17得票数 0
8回答
我需要从路径(字符串)中提取文件名：
例如，"C:\folder\folder\folder\file.txt“= "file" (甚至是"file.txt”)
本质上包括之前的一切和最后的\
我听说过用通配符代替Regex (因为它在VBA中是一个奇怪的实现？)但找不到任何坚实的东西。
提前干杯。
浏览 5提问于2011-05-09得票数 12
回答已采纳
我目前正在使用下面的代码选择一个文件并将其路径添加到文本框中。
Dim objDialog As Object
Set objDialog = Application.FileDialog(3)
With objDialog
.AllowMultiSelect = False
.Show
If .SelectedItems.Count = 0 Then
MsgBox "No file selected."
Else
Me.FileNameTextBox = Dir(.SelectedItems(1))
End If
浏览 4提问于2012-10-15得票数 1
我被一个问题卡住了。我做了研究，发现我可以使用InSTR函数来搜索字符串中的特定字符。 我要做的是从文件路径中提取一个文件名。 目前我有 InStr(StrFrom(pName), "\") 这里的问题是，它返回斜杠的第一个匹配项，因为我希望获得斜杠的最后一个匹配项(这样我就可以在上面的代码中使用'right‘函数来捕获文件名)。 任何关于如何获得字符串中最后一个斜杠的帮助都是非常感谢的！ 谢谢！
浏览 171提问于2016-11-12得票数 2
回答已采纳
4回答
我需要运行一个查询，从有2种数据类型的字段中提取信息。
字段为address，有123号大道作为数据和bb@yahoo.com。
我需要两个字段，一个用于电子邮件，一个来自表、客户和字段地址的STaddress？
谁能帮我..。它的访问和vb查询
我想到了这个
从"@“这样的客户地址中选择customer.address
但我仍然需要将地址字段的数据显示到两个不同的字段.
浏览 2提问于2013-03-02得票数 1
我正在使用ms access，我想添加一个按钮来浏览文件，获取文件的名称和路径。然后我想将文件路径和文件名存储在两个独立的变量中。到目前为止，我拥有的代码如下所示，目前我可以浏览一个文件，并仅获得该文件的名称。是否有人可以帮助我添加到我的代码中，以获得文件路径，并将文件名和文件路径存储在单独的变量中。
Private Sub Command7_Click()
Dim f As Object
Set f = Application.FileDialog(3)
f.AllowMultiSelect = True
If f.Show Then
For i = 1 To f.Selec
浏览 0提问于2013-02-17得票数 5
回答已采纳
因此，我在googlesheet表格上有一个框，用户可以在其中输入值，然后通过单击按钮将值传输到主电子表格中。我已经制定了各种转移条件，但由于这些值是货币金额，我希望确保它们在输入时最多为2位小数，而不是舍入它们。
有没有脚本函数可以让我计算小数位数？
浏览 0提问于2018-09-20得票数 1
2回答
在文本中使用VBA "ABC : DEF : GHK :XYZ“我需要提取最后一个冒号后的文本，即"XYZ”文本中可能有一个或两个或多个冒号
浏览 1提问于2020-08-11得票数 0
因此，我有一个宏运行，但是它目前循环通过列A找到拉文件名路径(即Macintosh :Users:username: path : to : filename )。我希望它只找到文件名，而不是完整的路径。路径将不断变化，因此必须有一种只提取文件名的方法。我已经看过使用GetFileName，但我使用Mac 2011，所以我有问题，让它发挥作用。有什么想法吗？
Sub CSVauto()
'
' CSVauto Macro
'
' Keyboard Shortcut: Option+Cmd+x
'
' Declaring and setting
浏览 6提问于2016-08-07得票数 0
回答已采纳
我试图创建的是一些VBA，它将递归地遍历一组文件夹(文件夹结构和文件可以不时更改)，并且每个文件列表中都没有扩展名。然后，对于每个文件(它们本质上是核对表)，计算范围(D6:H25)中的"Y“的数量，然后以60/100的计数表示。因此，我希望能有一个像下面这样的电子表格。
DAVE
80
BEN
12
我目前拥有的代码可以管理列出所有文件名和没有扩展名的代码。
Sub Retrieve_File_listing()
Worksheets(1).Cells(2, 1).Activate
Call Enlist_Directories("<FILEPATH>"
浏览 1提问于2016-05-23得票数 3
回答已采纳
1回答
我试图用这样的名字重命名一些pdf文件："2020- 01 - 24 -GOOGLE.NY- JPM -XXXXXXXXX.pdf“改为"2020 01 24- GOOGLE 30p.pdf”，30p表示30页( pdf文件中的页数)。
名字的结构总是一样的，只有字母/数字会改变。
我已经准备了一些代码(您可以在下面找到)，但是我正在为两件事而奋斗：
如何“提取”代理名称，(这里是JPM)如何获得pdf中的页数？我在论坛上看到了一些需要Adobe的解决方案，但我无法访问。
你有什么办法解决这个问题吗？
以下是代码：
Sub FetchName()
Dim nameArray()
浏览 5提问于2020-07-26得票数 0
1回答
在Microsoft Access中，我有一个查询uniSelectedContacts和可能的表。
让我们假设我有这样的可能性：
Smith,John
Dough,John B
Ward,Jane Karon
Eggert,Samantha R
在uniSelectedContacts中，我有这样的功能：
Smith,John A 1552 1st Ave
Dough,John 1111 2st Ave
Ward,Jane K 2222 3st Ave
Eggert,Samantha Rachel 3333 1st Ave
我想找出名字和姓氏可以辨认的地方。然而，由于中间首字母的变化，如果
浏览 0提问于2010-11-19得票数 0
回答已采纳
2回答
已更新。
我有以下代码：
Sub ImportTextFile()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
If Val(Application.Version) > 15 Then
If ActiveWorkbook.AutoSaveOn Then ActiveWorkbook.AutoSaveOn = False
End If
Dim Ret
Dim newWorksheet As Worksheet
Set newWorksheet = Sheets.Add(
浏览 0提问于2020-04-22得票数 1
回答已采纳
在重命名这些新创建的文件时，我有一个接受特定零件的代码，它应该“打包”到另一个特定位置，然而，如果我有一个设计表链接到我试图“打包”的零件，文件的重命名就不会发生。此问题的原因可能是什么？ 代码： Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swPackAndGo As SldWorks.PackAndGo
Dim OpenFilePath As String
Dim O
浏览 86提问于2021-06-21得票数 3
我有分析字符串上最后一个单词的代码。即。堆栈/结束/流将给我“流”。
但我想得到“结束/流动”。
这就是我得到的，但只能得到“流动”
arr(counter - 2) = "'" & mid(Text, InStrRev(Text, "/") + 1) & "'"
浏览 0提问于2018-09-21得票数 0
回答已采纳
我一直在乱搞，试图找出控制SOLIDWORKS包和Excel中的Go函数的代码。我已经找出了一个包和去功能到一个特定的位置，但我在弄清楚如何更改打包文件的文件名有困难。我有一个由Excel生成的"SaveName“字符串，我打算使用它作为打包的文件名。我到目前为止掌握的代码：
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swPackAndGo As SldWorks.PackAndGo
Dim openFile As String
Dim pgFileNames As Variant
Dim pgFileStatus As V
浏览 5提问于2021-06-19得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
