2010-02-04から1日間の記事一覧
Range("A:A").AdvancedFilter Action:=xlFilterCopy, copyToRange:=Range("B1"), unique:=True ↑A列のユニークキーをB列に貼り付ける。 要はEXCELデータの重複を削除したかったんだけど、 VBAでの連想配列とかめんどっちい。 ってか、VBAってがっつり組むよ…
Const adOpenKeyset = 1 Const adLockReadOnly = 1 Private Sub getData() Dim dbCon As Object Dim dbRes As Object Dim dbCols As Object Dim strSQL As String ' 接続を確立する Set dbCon = CreateObject("ADODB.Connection") dbCon.Provider = "Microso…