CSVファイル（１ファイルあたり、２～４万件のデータ）をアクセスに取り込んで、作業しています。
桁数が異なる列が２箇所あるので、取り込み時に桁数を合わせたいと思います。
テーブルのフィールド・プロパティで、（テキスト型→数値型、書式→"000")として試してみましたが、
元のデータがアルファベット混じりのテキスト型のためか、上手くいきませんでした。
エクセルに出力して、text関数を使う方法もあるのですが、なんせデーター量が多いので、
出来ればアクセスで作業してしまいたいと思います。
マクロが設定されていますので、どこかに関数を入れればよいのかと思いますが、
アクセスのマクロは経験がないので、よくわかりません。
何か良い方法があれば、ご教授下さい。よろしくお願い致します。
CSVファイル：
53列 １ファイルあたり、２～４万件のデータ
桁数が異なる列：
(1)O列（8桁と11桁（アルファベット含む）が混在）
→８桁のものの頭に「000」を付け加えて、テキスト型で11桁に揃えたい
(2)Z列 （空欄と、２桁、３桁が混在）
→頭に空欄は「000」、２桁は「0」を付け加えて、テキスト型で３桁に揃えたい
マクロ：KMM**.csv 複数データを取り込み、トータルテーブル[T_KMM]を作成
→[T_KMM]を使用したクエリ[Q_KMM]にてデータ抽出→エクセルへ出力
Option Compare Database
Private Sub TableLinkUpdate_Click()
Dim TableName As String
Dim ImportDef As String
Dim CsvName As String
Dim Fpath As String
Dim Epath As String
Const TableKMMs As String = "KMM"
Const UKMM As String = "T_KMM"
Set db = CurrentDb()
DoCmd.OpenQuery "KMM削除"
Fpath = Me.フォルダパス
n = db.TableDefs.Count - 13
For i = 1 To n
DoCmd.DeleteObject acTable, TableKMMs & i
Next i
TableName = TableKMMs
ImportDef = "KMMimport"
CsvName = "KMM.csv"
With Application.FileSearch
.LookIn = Fpath
.NewSearch
.FileName = CsvName
If .Execute > 0 Then
i = .FoundFiles.Count
Else
MsgBox CsvName & "ファイルが見つかりません。", vbOKOnly, "エラー"
End If
For n = 1 To i
Fpath = .FoundFiles(n)
DoCmd.TransferText acLinkDelim, ImportDef, TableName & n, Fpath, False
strSQL = ""
strSQL = "INSERT INTO " & UKMM
strSQL = strSQL & " SELECT *"
strSQL = strSQL & "FROM " & TableName & n
db.Execute strSQL
Next n
End With
Epath = Me.フォルダパス
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Q_KMM", Epath & "\費用.xls", True
DoCmd.Close acForm, "MAIN"
MsgBox "終わりました。", vbOKOnly, "更新・出力完了"
End Sub
CSVファイル（１ファイルあたり、２～４万件のデータ）をアクセスに取り込んで、作業しています。
桁数が異なる列が２箇所あるので、取り込み時に桁数を合わせたいと思います。
テーブルのフィールド・プロパティで、（テキスト型→数値型、書式→"000")として試してみましたが、
元のデータがアルファベット混じりのテキスト型のためか、上手くいきませんでした。
エクセルに出力して、text関数を使う方法もあるのですが、なんせデーター量が多いので、
出来ればアクセスで作業してしまいたいと思います。
マクロが設定されていますので、どこかに関数を入れればよいのかと思いますが、
アクセスのマクロは経験がないので、よくわかりません。
何か良い方法があれば、ご教授下さい。よろしくお願い致します。
CSVファイル：
53列 １ファイルあたり、２～４万件のデータ
桁数が異なる列：
(1)O列（8桁と11桁（アルファベット含む）が混在）
→８桁のものの頭に「000」を付け加えて、テキスト型で11桁に揃えたい
(2)Z列 （空欄と、２桁、３桁が混在）
→頭に空欄は「000」、２桁は「0」を付け加えて、テキスト型で３桁に揃えたい
マクロ：KMM**.csv 複数データを取り込み、トータルテーブル[T_KMM]を作成
→[T_KMM]を使用したクエリ[Q_KMM]にてデータ抽出→エクセルへ出力
Option Compare Database
Private Sub TableLinkUpdate_Click()
Dim TableName As String
Dim ImportDef As String
Dim CsvName As String
Dim Fpath As String
Dim Epath As String
Const TableKMMs As String = "KMM"
Const UKMM As String = "T_KMM"
Set db = CurrentDb()
DoCmd.OpenQuery "KMM削除"
Fpath = Me.フォルダパス
n = db.TableDefs.Count - 13
For i = 1 To n
DoCmd.DeleteObject acTable, TableKMMs & i
Next i
TableName = TableKMMs
ImportDef = "KMMimport"
CsvName = "KMM.csv"
With Application.FileSearch
.LookIn = Fpath
.NewSearch
.FileName = CsvName
If .Execute > 0 Then
i = .FoundFiles.Count
Else
MsgBox CsvName & "ファイルが見つかりません。", vbOKOnly, "エラー"
End If
For n = 1 To i
Fpath = .FoundFiles(n)
DoCmd.TransferText acLinkDelim, ImportDef, TableName & n, Fpath, False
strSQL = ""
strSQL = "INSERT INTO " & UKMM
strSQL = strSQL & " SELECT *"
strSQL = strSQL & "FROM " & TableName & n
db.Execute strSQL
Next n
End With
Epath = Me.フォルダパス
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "Q_KMM", Epath & "\費用.xls", True
DoCmd.Close acForm, "MAIN"
MsgBox "終わりました。", vbOKOnly, "更新・出力完了"
End Sub
いつもお世話になっております。
過去に何度か質問をさせていただき、今回のマクロまでたどり着くことが出来ました。
下記の内容にて、作成しました。
ここで、
(1)セルB1にあて先メアドを置いた場合に、メアドを載せる場合
(2)メールを送信する命令で、【myItem.Send】や【SendMail】ではメールが送信されている場合と送信待機の場合がはっせいしております。必ず、送信するまでの命令を、お教えいただきたいです。
PC環境は、XPです。
メールはMicrosoft Office Outlookです。
Sub CreateMail()
'参照設定 : Miscosoft Outlook 9.0Object Library
Const ShName = "MAIL送信"
Const SbjAdd = "b2"
Const BodyAdd = "b3:b14"
Dim olApp As Outlook.Application
Dim objMail As Outlook.MailItem
Dim Rng As Range
Dim StrBody As String
Set olApp = Outlook.Application
Set objMail = olApp.CreateItem(olMailItem)
For Each Rng In Range(BodyAdd)
StrBody = StrBody & Rng.Value & vbLf
Next Rng
With objMail
.Subject = Worksheets(ShName).Range(SbjAdd).Value
.Body = StrBody
.Display
End With
End Sub
