Excel VBA質問スレ Part6

Excel VBA質問スレ Part6 at TECH

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

150:デフォルトの名無しさん
 08/03/27 22:34:35 
>>149 
まあこの辺見るとかググるとかして頑張ってください 
ttp://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_130.html

151:デフォルトの名無しさん
 08/03/27 23:00:59 
指定フォルダ内の複数ファイルに対して 
文字列の置換処理をしたいのですが 
どのように書けばいいのでしょうか？

152:デフォルトの名無しさん
 08/03/27 23:07:35 
ファイル開く→置換

153:デフォルトの名無しさん
 08/03/27 23:11:07 
>>150さん 
このサイトは見たことがありますが参考になりませんでした。

154:デフォルトの名無しさん
 08/03/28 00:43:16 
>>153 
そこに書いてあることが理解できない段階なら、 
まじめにVBAの本を買って、勉強したほうがいいんじゃないかなと思う。

155:デフォルトの名無しさん
 08/03/28 02:24:22 
>>153 
DAOで、試験的にやってみました。 
あらかじめ、TEST.mdbの中に「受注」テーブルがある場合です。 
ワークシート「受注」の4行目から9行目までを新規レコードに追加します。 
 
Sub Data_Export() 
Dim WS As Worksheet, r As Long 
Dim db As Database, rs As DAO.Recordset 
 
Set WS = Worksheets("受注") 
Set db = OpenDatabase(ThisWorkbook.Path & "\TEST.mdb") 
Set rs = db.OpenRecordset(Name:="受注", Type:=dbOpenDynaset) 
 
For r = 4 To 9 
  With rs 
    .AddNew 
    .Fields("日付").Value = WS.Cells(r, 2).Value 
    .Fields("顧客名").Value = WS.Cells(r, 3).Value 
    .Fields("注文番号").Value = WS.Cells(r, 4).Value 
    .Fields("品名").Value = WS.Cells(r, 5).Value 
    .Fields("単価").Value = WS.Cells(r, 6).Value 
    .Fields("数量").Value = WS.Cells(r, 7).Value 
    .Update 
  End With 
Next r 
 
db.Close 
 
End Sub 
 
参考になればよいですが。

次ページ