EXCEL VBAでのCSVファイル読み込み、出力で困っています。
データ３件のファイルから３件抽出すると正常にイミディエイトウィンドウへ表示されるのですが
データ約３８，０００件のファイルから３件抽出すると文字化けする項目があるのです。
文字化けする項目の共通点は256文字以降が、どうやら化けているようです。（長文１、長文２の項目）
教えて！goo でいろいろ探してみましたが、これといった解決策が見つかりませんでした。
また、抽出データをCSVで出力しているのですが
始まりと終わりに " が出力されるので困っています。
" が出力されないようにできるのでしょうか？
当方、COBOLでのコーディング経験は実務で４年ほどありますが
VBAの知識は学校で少し学んだ程度の初心者です。
わかりやすく教えていただけないでしょうか？
sample1.csv データ３件
sample2.csv データ約３８，０００件（ここにsample1.csvと同じデータが含まれています）
Dim adoCON As New ADODB.Connection
Dim adoRS As New ADODB.Recordset
Dim rec As String
'ADOを使い読み込み専用モードでCSVファイルを扱う準備(オープン)をします
adoCON.Open "Driver={Microsoft Text Driver (*.txt; *.csv)}; " & _
"DBQ=c:\Documents and Settings\デスクトップ\test;" & _
"ReadOnly=1"
Open "C:\Documents and Settings\デスクトップ\test\test.csv" For Output As #1
'SQLを実行し、指定したIDのデータを抽出します
'ID,名前,,,,,,,,,,,長文１,長文２,,,,,,更新日時 ←こんな感じで20項目
Set adoRS = adoCON.Execute("select * from sample1.csv where (ID = 213428) or (ID = 212717) or (ID = 212917)")
'SQLの実行結果をデータが無くなるまでrecへ格納します
Do Until adoRS.EOF = True
rec = rec & adoRS("ID") & "," & adoRS("名前") & "," & adoRS("長文１") & "," & adoRS("長文２") & Chr(10)
'カーソルを次の行へ
adoRS.MoveNext
Loop
'recの内容をイミディエイトウィンドウへ表示
Debug.Print rec
'recの内容を出力
Write #1, rec
'CSVファイルをクローズします
Close #1
'レコードセットをクローズします
adoRS.Close
'データベースのクローズ
adoCON.Close
ワードマクロについて
ＭＳ ＷＯＲＤ ２００３ファイル中の「図の書式
設定」の「高さ」および「幅」を、インプットボックス
で入力した数値（％）で拡大・縮小するために、
下記マクロを作成しました。
下記マクロは、ケミドローで作成した化学式を
ＷＯＲＤ文書にコピー・ペーストした図に対して
は正常に機能します。
しかし、特許・実用新案公報ＤＢ
（http://www.ipdl.inpit.go.jp/Tokujitu/tjsogodb.ipdl?N0000=101）
で検索した特許文献を、ＷＯＲＤ文書にコピー・ペースト
した場合、その図に対してマクロを実行すると、「高さ」
および「幅」が入力値とは異なるというバグがあります。
例えば、上記サイトで検索した「特開２０１０－１」を
ＷＯＲＤファイルにコピー・ペーストした後、【図１】
に対して、このマクロで「３０」（％）を入力すると、
「高さ」および「幅」に、それぞれ「１０％」および
「２２％」が入力されます。
このバグの原因および解決策をご教示下さい
ますようお願いします。
Sub Size_Each_Image()
' 選択イメージのサイズ変更。
'
' 現在のＩＭＥの状態を格納する場所を宣言
Dim sinIME As Single
' インプットボックスで入力された％の格納場所を宣言
Dim varX As Variant
'
' 選択箇所が行内図でない場合、終了。
If Selection.Type <> wdSelectionInlineShape Then End
'
' 現在のＩＭＥの状態を格納し、日本語入力をＯＦＦにする
With ActiveWindow
sinIME = .IMEMode
.IMEMode = wdIMEModeOff
End With
'
' インプットボックスでサイズ入力。
varX = InputBox("選択イメージのサイズ(％)は？", "選択イメージのサイズ")
' キャンセルされた場合、日本語入力を元に戻して終了。
If varX = "" Then
ActiveWindow.IMEMode = sinIME
End
End If
'
' サイズ入力
With Selection.InlineShapes(1)
.ScaleHeight = varX
.ScaleWidth = varX
End With
'
' ＩＭＥを元に戻す
ActiveWindow.IMEMode = sinIME
'
End Sub
ワードマクロについて
ＭＳ ＷＯＲＤ ２００３ファイル中の「図の書式
設定」の「高さ」および「幅」を、インプットボックス
で入力した数値（％）で拡大・縮小するために、
下記マクロを作成しました。
下記マクロは、ケミドローで作成した化学式を
ＷＯＲＤ文書にコピー・ペーストした図に対して
は正常に機能します。
しかし、特許・実用新案公報ＤＢ
（http://www.ipdl.inpit.go.jp/Tokujitu/tjsogodb.ipdl?N0000=101）
で検索した特許文献を、ＷＯＲＤ文書にコピー・ペースト
した場合、その図に対してマクロを実行すると、「高さ」
および「幅」が入力値とは異なるというバグがあります。
例えば、上記サイトで検索した「特開２０１０－１」を
ＷＯＲＤファイルにコピー・ペーストした後、【図１】
に対して、このマクロで「３０」（％）を入力すると、
「高さ」および「幅」に、それぞれ「１０％」および
「２２％」が入力されます。
このバグの原因および解決策をご教示下さい
ますようお願いします。
Sub Size_Each_Image()
' 選択イメージのサイズ変更。
'
' 現在のＩＭＥの状態を格納する場所を宣言
Dim sinIME As Single
' インプットボックスで入力された％の格納場所を宣言
Dim varX As Variant
'
' 選択箇所が行内図でない場合、終了。
If Selection.Type <> wdSelectionInlineShape Then End
'
' 現在のＩＭＥの状態を格納し、日本語入力をＯＦＦにする
With ActiveWindow
sinIME = .IMEMode
.IMEMode = wdIMEModeOff
End With
'
' インプットボックスでサイズ入力。
varX = InputBox("選択イメージのサイズ(％)は？", "選択イメージのサイズ")
' キャンセルされた場合、日本語入力を元に戻して終了。
If varX = "" Then
ActiveWindow.IMEMode = sinIME
End
End If
'
' サイズ入力
With Selection.InlineShapes(1)
.ScaleHeight = varX
.ScaleWidth = varX
End With
'
' ＩＭＥを元に戻す
ActiveWindow.IMEMode = sinIME
'
End Sub
エクセル VBA リストについて
ComboBox3が例えばAなら
ComboBox5にリストを入れたい
同じBookにSheet”masuta"がありそこに
U1 V1 W1 X1
A B C D
U列の下には”A"があり、Aの項目を入れ込んでいます。
ComboBox３が”A”と表示させた場合
ComboBox５はU列のU３以降の項目が入るようにしたいのですが
Set wbMyBook = Workbooks(strMyBookName)エラー表示され
型の一致がしないと表示されます！
このBookの格納はしているつもりなのですが上手く
回避できません教えて下さい。
それと下の記述をどのように変化させれば良いか
アドバイスお願いします。
Private Const WBHName = "k2.xls"
Private Const SH1Name = "Sheet1"
Private Const wsListName = "masuta"
Dim lngYcnt_List As Long '使用行を格納
Dim wbMyBook As Workbook 'このブックをセット
Dim wsList As Worksheet 'リストシートをセット
Dim strMyBookName As String 'このブックの名前を格納
Private Sub ComboBox3_Change()
Dim lng As Long
'使用するブックとシートをセット
Set wbMyBook = Workbooks(strMyBookName)
Set wsList = wbMyBook.Worksheets(wsListName)
'リストシートの使用行を格納
lngYcnt_List = wsList.Range("masuta!U1:X1").CurrentRegion.Rows.Count
'コンボボックスComboBox1のクリア・フラグをfalseにする。
ComboBox5.Clear
flag = False
'同じ数字のもののコンボボックスComboBox1に追加。
For lng = 1 To lngYcnt_List
If ComboBox3.Value = wsList.Cells(lng, 21) Then
'ComboBox1,TextBox8,呼吸具体策に表示する。
ComboBox5.AddItem wsList.Cells(lng, 21)
End If
If ComboBox3.Value = wsList.Cells(lng, 22) Then
ComboBox5.AddItem wsList.Cells(lng, 22)
End If
If ComboBox3.Value = wsList.Cells(lng, 23) Then
ComboBox5.AddItem wsList.Cells(lng, 23)
'処理を抜けるExit For
flag = True
End If
Next lng
End Sub
Excelのマクロでファイルを開くのダイアログをキャンセルしたときの挙動についてです。
マクロで次のような記述をしています。
Sub tekitou()
Dim vntFileName As Variant
vntFileName = _
Application.GetOpenFilename( _
FileFilter:="エクセルファイル(*.xls),*.xls" & _
",CSVファイル(*.csv),*.csv" _
, FilterIndex:=1 _
, Title:="ファイルを開く" _
, MultiSelect:=False _
)
If vntFileName <> "False" Then
Workbooks.Open Filename:=vntFileName
End If
うんたらかんたら
End Sub
このとき、ファイルを開くのダイアログをキャンセルしたときでも「うんたらかんたら」の部分が実行されてしまいます。
キャンセルを押したときにそこでそれ以降をスキップして何もなかったかのような挙動をさせるためにはどのような記述をすればいいのでしょうか？
