- ベストアンサー
※ ChatGPTを利用し、要約された質問です（原文：BooktestというWorkbookがあります。
）
BooktestのWorkbookでCSVファイルの値を抽出してtestsheet2に入れる方法
このQ&Aのポイント
- BooktestというWorkbookには、testsheet1とtestsheet2があります。testsheet1にはファイルダウンロードボタンがあり、押すとcsv形式のファイルを選択するダイアログが表示されます。選んだファイルから値を取り出し、testsheet2のセルに入れたいのですがうまくいかないです。
- BooktestというWorkbookには、testsheet1とtestsheet2があります。testsheet1にはファイルダウンロードボタンがあり、押すとcsv形式のファイルを選択するダイアログが表示されます。選んだファイルから値を取り出し、testsheet2のセルに入れたいですが、うまくいきません。
- BooktestというWorkbookには、testsheet1とtestsheet2があります。testsheet1にはファイルダウンロードボタンがあり、押すとcsv形式のファイルを選択するダイアログが表示されます。選んだファイルから値を取り出し、testsheet2のセルに値を当てはめていきたいですが、うまくできません。
- ok_akon
- お礼率100% (1/1)
- Visual Basic
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
>3)選択したファイルを開くと、そのファイルから値を取り出し > testsheet2のセルに値を当てはめていきます。 > ＃開いたファイルは表示しないようにしたいです。 選択したCSVファイルのsheet1からA列が1のBの合計のみ出力しました あとは応用してくださいね Dim myCsv As Workbook Dim LastRow As Long Application.ScreenUpdating = False Set myCsv = Workbooks.Open("G:\さんぷる.csv") LastRow = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row ThisWorkbook.Worksheets("testsheet1").Range("A1").Value = _ Excel.Application.Evaluate("SumIf(A1:A" & LastRow & ", 1,B1:B" & LastRow & ")") myCsv.Close False Application.ScreenUpdating = True
お礼
ありがとうございます！ 試してみます！！！！