http://excel-ubara.com/excelvba5/EXCEL111.html

一番楽なのは、CSVはエクセルで開く３番目の方法。
CSV入力3


改造して、既存のシート「シート１」に、「C:\aaa.csv」を読みこませる場合のサンプル

Sub CSV入力()
    Dim varFileName As Variant

    Dim SHEET_NAME As String
    SHEET_NAME = "シート１"
    

    varFileName = "C:\aaa.csv"
    
    If varFileName = False Then
        Exit Sub
    End If
  
    'csvファイル開く
    Workbooks.Open Filename:=varFileName
    
    'csvファイルのシートを全コピーする。
    ActiveSheet.Cells.Copy ThisWorkbook.Sheets(SHEET_NAME).Cells
  
    'csvファイル閉じる
    ActiveWorkbook.Close SaveChanges:=False
  
  
End Sub

これで、「シート１」にcsvファイルを貼り付けできる。

— posted by midilin @ 06:22PM | Comment (0)

パラメータを&でつなげて、

	  Dim xmlhttp As Object
      Set xmlhttp = CreateObject("msxml2.xmlhttp")
      xmlhttp.Open "POST", url, False  
      xmlhttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
      xmlhttp.send (paramStr)   

で送信できる。


参考）
http://piyopiyocs.blog115.fc2.com/blog-entry-433.html


また、テキストエリア（textarea）にPOST送信する場合は
改行コード（vbNewLine）を付加して送れば良い。


例えば、URLをテキストエリアに数行書いて、POSTしたい場合は
paramStr = "&urls=http://test.co.jp/aaa.html" & vbNewLine & "http://test.co.jp/bbb.html"

のように送ることができる。

— posted by midilin @ 06:16PM | Comment (0)