我正在构建一个VBA宏,它将"搜索"一个文件夹中的关键字术语"fuel",并从所有返回的文件中提取所有信息并将它们放入"数据"表中.
例如,我有一个文件夹周数(1 - 52年跨越,所以在新的一年,这将只包含一个文件夹,但随着年份的推移将构建和构建)所以我在这个文件夹中搜索所有.doc文件包含单词'燃料'.您只需在顶角的搜索功能中键入"fuel"即可通过Windows搜索执行此操作,它将显示所有文件名,所有文件中都包含"燃料"字样.
我目前有,但这只是搜索一个在其名称中有"燃料"的文件,而不是包含它的内容.
Sub LoopThroughFiles()
Dim MyObj As Object, MySource As Object, file As Variant
file = Dir("c:\testfolder\")
While (file <> "")
If InStr(file, "fuel") > 0 Then
MsgBox "found " & file
Exit Sub
End If
file = Dir
Wend
End Sub
我已经做了一些搜索,但我无法得到任何工作:(.我认为我的VB技能需要复习.
先谢谢你.
JB
我有一个问题,我一直无法回答,我的问题是我有一个宏使用SQL查找来访问SQL数据库并提取信息.在excel中,总是将日期强制为DD/MM/YYYY(你可以强制格式化,但是当它传递到SQL方面时它仍然以DD/MM/YYYY形式出现,即使格式在视觉上看起来正确).
我已尝试对我的代码进行一些更改以尝试"强制"它然而我没有运气我是否使其复杂化或是否应该更难做到这一点？大声笑.
我将提供我的VB代码和"属性",以了解使用宏创建的"连接".
需要注意的是,格式需要为YYYY-MM-DD,因为这是它存储在数据库中的方式.目前解决这个问题的唯一方法是使用日期前面的"'",例如'2013-12-01强制它,否则它将进入2013年12月1日.
有任何想法吗？我已经绞尽脑汁太久了哈哈.
关心杰米
如果需要该信息,则服务器是SQLEXPRESS服务器.
代码如下:
Sub CustomisedSQLQuery()
'
' SQL Query to allow user customisation.
'
'
Dim FileName As String
Dim User As String
Dim StartDate As String
Dim EndDate As String
Dim Category As String
Dim Confirm As Variant
Confirm = MsgBox("Have you made sure that at least one of the search criteria's is populated? If so your excel may crash or you may kill the database.", vbQuestion + vbYesNo, "Wait....")
If Confirm = vbNo …我在Visual Web Dev 2010 Express中使用C#创建了一个Web表单,它包含文本框/标签(基于复选框)但是当我运行代码时运行SQL命令失败.我在使用3个文本框之前已经使代码工作,但在扩展代码时似乎不起作用.
我尝试过的事情:
当谷歌搜索有人说一些关于引号是一个问题(并且错误反映了这一点),但如果我从SQL命令中删除所有引用它失败但我的想法是它总是必须'"+datahere+"'是真的吗？
我还将在错误下方引用我所有的代码,以查找有问题的Web表单.当我运行'debug'时,错误看起来像这样:
't'附近的语法不正确.字符串')'后面的未闭合引号.
描述:执行当前Web请求期间发生未处理的异常.请查看堆栈跟踪以获取有关错误及其源自代码的位置的更多信息.
异常详细信息:System.Data.SqlClient.SqlException:'t'附近的语法不正确.字符串')'后面的未闭合引号.
来源错误:
Line 40: }
Line 41: SqlCommand cmd = new SqlCommand("insert into sicknesstest values('"+txtname.Text+"','"+txtgrade.Text+"','"+txtdepot.Text+"','"+txtillness.Text+"','"+txtabsence.Text+"','"+txtcontactby.Text+"','"+txtupdate.Text+"','"+txtdetails.Text+"','"+txtresumedate.Text+"','"+txtdetail.Text+"','"+txtmedonreturn.Text+"','"+txtreporter.Text+"','"+txtdateofcontact.Text+"','"+txtresumeddate.Text+"')", con);
Line 42: cmd.ExecuteNonQuery();
Line 43: con.Close();
Line 44: Label1.Visible = true;
源文件:C:\ Users\MYNAME\Documents\Visual Studio 2010\Projects\SicknessDBNewSite\SicknessDBNewSite\WebForm2.aspx.cs行:42
堆栈跟踪:
[SqlException (0x80131904): Incorrect syntax near 't'.
Unclosed quotation mark after the character string ')'.]
System.Data.SqlClient.SqlConnection.OnError(SqlException exception, Boolean breakConnection, Action`1 wrapCloseInAction) +1791910
System.Data.SqlClient.SqlInternalConnection.OnError(SqlException exception, Boolean breakConnection, Action`1 wrapCloseInAction) +5347106
System.Data.SqlClient.TdsParser.ThrowExceptionAndWarning(TdsParserStateObject stateObj, Boolean callerHasConnectionLock, Boolean asyncClose) +546
System.Data.SqlClient.TdsParser.TryRun(RunBehavior …