' フルパスを格納するリスト Public lstFullPath As Collection ' 呼出し：ルートパスを指定 Public Sub GetAllFilePath() ' 初期化 Set lstFullPath = New Collection ' ルートパスを指定(最後の\マークは不要) Call GetSubDir("c:\root\src") End Sub ' サ…

' ======================================================== '@ 機能：全てのブック、シートに対して同じ処理をしたい場合 '@ 日付：2014.01.20 '@ 作成：D.O Revolutions エンターテイメントカレッジ ' ================================================…

検索方向パラメータ：SearchDirectionにxlPreviousを設定します。 Sub 下から検索する() Dim rng As Range Set rng = Range("A:A").Find(What:="検索文字", SearchDirection:=xlPrevious) If rng Is Nothing Then MsgBox "存在しません" Else MsgBox rng.Add…

‘ 参照設定追加 Sub AddReferences() On Error Resume Next Dim Ref With ActiveWorkbook.VBProject Call .References.AddFromFile("C:\work\common1.xlam") Call .References.AddFromFile("C:\work\common2.xlam") End With End Sub ‘ 参照設定削除 Sub Rem…

VBAでCSVファイルを作成して出力する方法 Sub Exp_CSV() Dim dbs As DAO.Database Dim rst As Dim rst As DAO.Recordset Dim lngFileNum As Long Dim strOutPut As String lngFileNum = FreeFile() Open "C:\work\expdata.csv" For Output As #lngFileNum Se…

ADOの機能を使用するためにはADOライブラリを参照設定する必要があります。 [ツール]-[参照設定]から「Microsoft Active Data Object x.x Library」にチェックしてください。 Accessと同じフォルダにCSVファイルを格納します。 Public Sub ImportText_DAO() …

DAOの機能を使用するためにはDAOライブラリを参照設定する必要があります。 [ツール]-[参照設定]から「Microsoft DAO x.x Object Library」にチェックしてください。 Accessと同じフォルダにCSVファイルを格納します。 Public Sub ImportText_DAO() ‘ カレン…

CSV(テキストファイル)をアクセス内のテーブルに取り込む方法 CSVファイルをインポートするのはDoCmd.TransferTextメソッドです。 【構文】 DoCmd.TransferText(TransferType, SpecificationName, TableName, FileName, HasFieldNames, HTMLTableName, CodeP…