Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

13164 / 76807

←次へ　｜　前へ→


	【69152】Re:CSVデータ

GGG - 11/5/20(金) 20:35 -


	引用なし

	パスワード

▼H. C. Shinopy さん：
>"=countif(　,　)"　というように引用符で囲むと問題なくできそうですが…
>
>ただ、Excelで開いたCSVファイルのブックを保存すると、値だけ保存されるし、
>"=countif(　,　)" を書き込んだCSVファイルを開けばエラーが表示されし
>（単なる警告だけですが、エラーをすべて無視する操作が必要ですね）…
>
>その辺は、更にマクロで前後の処理をする必要があるでしょう。
>うまくいったらやり方を教えて下さい。

H. C. Shinopy さん
有り難うございました
引用符をいろいろ付けてみていけました

Private Sub Command1_Click()
　Dim fileNo As Integer
　Dim I AS Integer
　Dim aaa(1 to 7)
　
　aaa(1) = "2," & """=countif(A:A,""""G"""")"""
　aaa(2) = "G"
　aaa(3) = "2"
　aaa(4) = "2"
　aaa(5) = "G"
　aaa(6) = "G"
　aaa(7) = "2"
　
　fileNo = FreeFile　　　　　　　　　　　　
　Open "c:\111111E.CSV" For Append As #fileNo
　For I = 1 To 7
　　　　Print #fileNo, aaa(I)　　　　　　　　　
　Next
　Close #fileNo　　　　　　　　　　　　　　
End Sub

0 hits

▼

【69148】CSVデータ GGG 11/5/20(金) 18:34