| |
▼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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
