Visual Basicファイル

Question

フォームでVisual Basicを使用していますので、フォームから新規または既存のファイルにデータを保存する必要があります。

私が作成または.xlsファイルを保存すると、それはデ・データを分割しません（私の言いたいことは一つの列内のすべてである）

また、私は保存して、本当に難しいですデータが適切に（それは常に既存のデータを上書き）

これは、省コードです：

Sub Save() 

10 Rem Save RANDOM 
20 Open "C:\CCA\Final\prueba.xls" For Random As #1 Len = 50 
30 Put #1, , regi 
40 Close #1 
50 MsgBox "File saved" 

End Sub 

これは私が保存していたデータである：

Public regi As camion 


Type camion 
tipo As String * 45 
peso As String * 2 ' 
End Type 

ありがとうございました。

Answer 1

（Link）これを試してみてください：Excelファイルを作成します *あなただけのマクロを作成するVBAを使用する場合、それは容易になるだろう

Dim oExcel As Object 
Dim oBook As Object 
Dim oSheet As Object 

Set oExcel = CreateObject("Excel.Application") 
Set oBook = oExcel.Workbooks.Add 

Set oSheet = oBook.Worksheets(1) 
oSheet.Range("A1").Value = tipo 
oSheet.Range("B1").Value = peso 


oBook.SaveAs "C:\prueba.xls" 
oExcel.Quit 

とちょうどこのコードを使用します。

Cells(y, x) = data1 
Cells(y2, x2) = data2 

をそれが簡単なので、本当にこのようにすることをお勧めします。

*少なくともVBAタグを使用していれば、VBAソリューションは大丈夫です。

Answer 2

あなたの情報を記録するために、VBAフォームではなく、Visual Basicフォームで作業していることを理解しています。

私は、Visual Basic 6.0でプログラムされ、私はExcelにそれをインポートしたり、そのように持って.CSV（カンマ区切り）を使用することが好まエクセル に情報を移動したい...

あなたの場合一度に "regi"レコードをExcelファイル（ ".xls"）に送信すると、Excelアプリケーションで直接読み取ることはできません。

より良いこれを試してみてください...

Sub Save() 

10 Rem Save RANDOM 
20 Open "C:\CCA\Final\prueba.csv" For Random As #1 Len = 53 
30 put #1, , regi.camion 
31 put #1, , chr$(9) ' this is the tab character to move to next column 
32 put #1, , regi.peso 
33 put #1, , chr$(13) 
34 put #1, , chr$(10) 
40 Close #1 
50 MsgBox "File saved" 

End Sub 

をし、Excelでそれを開こう