小编Cub*_*ase的帖子

我收到了以下错误.

Compile error: The code in this project must be updated for use on 64-bit systems.

VBA代码

Option Explicit

Private Declare Function URLDownloadToFile Lib "urlmon" _
Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, ByVal szFileName As String, _
ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long

Dim Ret As Long

'~~> This is where the images will be saved. Change as applicable
Const FolderName As String = "C:\Temp\"

它在Excel 2010中工作正常.

谢谢.

编辑

我得到的错误是Ret …

我想从excel连接到Access 2010数据库.我正在使用VBA.我将连接字符串写为

Public objCon As New ADODB.Connection

objCon.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ActiveWorkbook.Path & _
            "\asset_database.accdb;ACE OLEDB:Database Password=password;"

但是它给出了错误"无法找到可安装的ISAM".这是什么错误？

我对一些Excel visual basic有点困难.特别是我想根据单元格的值更改列的格式.这是我到目前为止所拥有的.

 Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = Range("$b$1") Then
        If Range("$b$1") = "Date" Then
            Range("d:d").NumberFormat = "m/d/yyyy"
        ElseIf Range("$b$1") = "Number" Then
            Range("d:d").NumberFormat = "#,##0.00"
        End If
    End If
End Sub    

我是使用Target功能的新手,所以任何建议都会有所帮助.

我正在使用SQL Server Express 2008

当我尝试将数据从txt文件加载到此表中时

create table Clients
(
ClientID int not null IDENTITY (9000,1),
LastName varchar (30)not null,
FirsName varchar (30)not null,
MidInitial varchar (3),
DOB date not null,
Adress varchar (40) not null,
Adress2 varchar (10),
City varchar (40) not null,
Zip int not null,
Phone varchar (30) ,
CategCode varchar (2) not null,
StatusID int  not null,
Hispanic BINARY default 0,
EthnCode varchar(3) ,
LangID int,
ClientProxy varchar (200),
Parent varchar (40),
HshldSize int default 1,
AnnualHshldIncome …