如何使用VBA锁定单元格?我看到要锁定单元格,您需要保护工作表,但是它锁定了所有我想要锁定的单元格(我的代码)。
Private Sub Workbook_Open()
If Environ$("computername") = "09-PC-0154" Then PCdeposito = "F:" Else PCdeposito = "\\09-PC-0154"
Ruta = Me.Path
If Me.Name = Form62 Then
Worksheets("Hoja1
在我的Access VBA中,我正在运行一个ftp命令的批处理文件,以将一些文件上传到我的远程服务器。在决定上传之前,我想检查远程服务器上是否存在一个锁文件,但无法确定。如果不可能通过简单的ftp命令行,我也会使用VBA解决方案。
open domain.com
username
password
binary
cd remotedir
lcd localdir
put web_status.csv
put web_customer.csv
disconnect
bye
我对vba (和这个网站--如果我发错了,很抱歉)还是个新手,以前是SQL开发人员,但不幸的是,我的新工作只涉及access 2010。我正在尝试构建一个vba宏,它将运行各种更新语句。我已经在access中构建了查询,并且正在尝试在vba中调用该查询。我曾尝试使用一个access查询执行此操作,但遇到了运行时错误- UPDATE语句中的语法错误。查询在access中运行正常,但vba函数失败,并出现运行时错误。
下面是我的vba函数:
Public Function TestUpdate1()
Dim cmdT As ADODB.Command
Dim cnn As ADODB.Connec
我正在尝试使用VBA将新列/字段添加到新创建的表和新创建的数据库中,即表或数据库中绝对没有任何内容。我的代码如下: Sub test()
CurrentDb.Execute ("ALTER TABLE Table1 ADD COLUMN Column2 Text;")
End Sub 但是,这会导致以下错误消息: Run-time error '3211':
The database engine could not lock table 'Table1' because it is already in use by another
我有一个Excel工作簿(二进制扩展),它突然间出现了两个问题(有时运行得很好)。
#1问题--在第5行上偶尔会出现错误,连接似乎没有打开。我们得到错误: Microsoft]ODBC Microsoft Access DriverGeneral错误,无法为进程0x7f8线程0x1174 DBC打开注册表键临时(易失性)
#2问题--在第7行上偶尔会出现一个错误,似乎无法运行。它表示即使确实存在工作表选项卡也找不到。注意,对于此错误,我们对第5行(打开连接)没有问题。显示的错误是: Microsoft jet数据库引擎无法找到对象“工作表名称”。确保物体存在..。对于问题2,一旦关闭错误对话框
我有一个Access数据库前端,我正在尝试在表单上放置一个按钮来删除当前记录。我使用以下VBA代码删除记录:
If Me.NewRecord Then
Me.Undo
Exit Sub
End If
DoCmd.RunCommand acCmdDeleteRecord
Me.Requery
Me.Refresh
当我在与表单一起插入数据库的记录上运行此操作时,它会在DoCmd上返回运行时错误'2501‘。但是,如果我在数据库中已经存在的记录上运行它,那么代码将按预期完成。
另外,还没有其他人访问这个数据库表,而且我只打开了一个表单。
当我在access中手动从链接表
我正在尝试保护Excel电子表格中的标题。为此,我选择了整个工作表,转到单元格属性,取消选中“锁定”。然后,我只选择了第一行,并选中了“锁定”。 我的宏运行正常一次,然后再次运行时,我得到了与工作表被锁定相关的错误,当我返回并检查工作表时,现在所有的单元格都再次被锁定。我没有任何指定锁定任何单元格的VBA代码。我运行了这个宏来保护工作表: Public Sub ProtectSheet(Optional sheetname As String)
Dim thisSheet As Worksheet
'This is to protect sheet from
我最近学会了如何用VBA编程,通过阅读这个网站上以前提出的问题和答案,我得到了一些非常有帮助的帮助。然而,我在我的一个程序中遇到了一个问题,这个问题似乎没有得到很直接的解决。所以我会在这里问它。
我正在制作一个Powerpoint宏,它将使用新数据自动更新一些幻灯片。对于包含excel表的幻灯片,我希望宏打开一个excel文件,运行excel文件中的现有宏,用新数据填充电子表格,最后将该表复制到powerpoint幻灯片上。到目前为止,我的代码(不包括复制部分)是:
Private Sub GetProposals()
Dim myXL As Excel.Application
我在Access 2007数据库中存储了一个查询。我在这台机器上可以进入2010年。我想做以下几点:
filenameupdate 将Excel电子表格导出为数据库中的临时表。向临时表中添加一列,并使用导出表的内容将其填充为链接表。
更新是Access前端存储的查询。当我从Access运行更新查询时,它工作得很好。但是,当我使用代码从VBA运行它时:
sub test()
filename=thisworkbook.name
Set db_fe = OpenDatabase("C:\Data\myDB.mdb")
If TableExists(db_fe, "temp
编译access数据库后,启动数据库时出现错误。当我运行数据库的非编译版本时,它工作得很好。
错误显示为the expression you entered has a function name that <database name> can't find。
我读到此错误是由宏试图运行不存在的vba函数引起的。
我唯一拥有的宏是VBA宏,它调用启动autoexec函数。
就像我说的,未编译的access数据库没有问题,只有编译过的版本才会产生这个错误。
为什么编译后会出现这个错误?