小编Rub*_*uck的帖子

这看起来很容易(我已经完成了一百万次,从来没有遇到过问题),但这让我很伤心.

我想根据Excel电子表格中的内容创建一些SQL脚本.为此,我创建了一个使用以下代码读取文本文件的宏

Dim fso As FileSystemObject
Set fso = New FileSystemObject

Dim stream As TextStream
Set stream = fso.OpenTextFile(filepath, 8, False)

这应该打开文本文件以追加并插入我的新值.

不幸的是,它总是被覆盖而不是追加,这让我疯狂.

有任何想法吗？

我有一个Access表单,它使用链接的sql server表作为数据源.我需要尽快将此文件分发给其他用户,我需要一种方法来以编程方式将DSN安装到他们的计算机上.这是手动设置链接的过程:

外部数据>更多> ODBC数据库>链接到数据源>机器数据源选项卡>按新建>用户数据源> sql server> name =由您决定; server = serverName> SQL Server如何验证登录ID的真实性？使用Windows NT身份验证使用网络登录ID >附加数据库文件名(数据库名称)>选择表并按确定

这就是我访问我的表所做的,但我希望用户可以按下按钮并访问该表,同时通过使用Windows NT身份验证进行身份验证.

我无法找到一种方法来写入访问vba代码可以有人指导我正确的方向吗？

我有一个 excel 文档，我用它来分析数据集，我引入的每个数据资产都有不同数量的数据。我试图编写一个分配给按钮的宏，该按钮可以根据单元格的值识别删除行。这是行不通的。我究竟做错了什么？

Sub Button2_Click()
[vb]
'This will find how many rows there are
 With ActiveSheet
    lastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
    MsgBox lastRow
 End With

 Sub sbDelete_Rows_Based_On_Criteria()
     Dim lRow As Long
     Dim iCntr As Long
     lRow = lastRow
     For iCntr = lRow To 1 Step -1
         'Replaces XX with the variable you want to delete
         If Cells(iCntr, 1) = "#N/A" Then
             Rows(iCntr).Delete
         End If
     Next
 End Sub
 [/vb]
End Sub

我希望我的代码复制整个工作表(SOURCE)并将其粘贴到其他工作簿(WHERE_I_WANNA_PASTE_IT)下的其他工作表(TARGET)中并保存.

我收到此错误:

运行= -time错误'1004':范围类的复制方法失败

在这条线上:

CurrentSheet.Cells.Copy Destination:=oSheet.cells 

Run Code Online (Sandbox Code Playgroud)

代码:

Public Const path1 As String = "C:\Where_I_WANNA_PASTE_IT.xlsb"
Dim oExcel As Object
Dim oBook As Object
Dim oSheet As Object
Dim CurrentSheet As Object

Sub copyNpaste

Set CurrentSheet = ActiveSheet
Set oExcel = CreateObject("Excel.Application")
Set oBook = oExcel.Workbooks.Open(path1)
Set oSheet = oBook.Worksheets("TARGET")

'Deleting what's on "TARGET" first
oSheet.cells.delete

'This is where the Error happens.
CurrentSheet.Cells.Copy _
Destination:=oSheet.Cells

oBook.Save
oBook.Close

Set oExcel = Nothing
Set oBook = Nothing
Set oSheet = Nothing
Set CurrentSheet …

请帮助解决以下问题：

1) 设置“Module3”所有宏列表的代码，并将该列表放置在“Sheet5”中，从下面的单元格“E14”开始。

2）然后，代码应该运行所有列出的宏

我尝试使用引用的代码VBComponent，但出现错误。