день добрый!
Подскажите как средствами VBA можно сделать следующее:
есть ListBox надо хапоминать туда данные, которые не должны исчезать после выхода из программы. Может нужно в файл запоминать?

Да. Лучше всего в ini. Вот пример работы:
'Записать информацию в ini
Public Declare Function WritePrivateProfileString Lib "KERNEL32" _
Alias "WritePrivateProfileStringA" (ByVal AppName As String, _
ByVal KeyName As String, ByVal keydefault As String, _
ByVal FileName As String) As Long
'Получить информацию из совственного ini
Public Declare Function GetPrivateProfileString Lib "KERNEL32" _
Alias "GetPrivateProfileStringA" (ByVal AppName As String, _
ByVal KeyName As String, ByVal keydefault As String, _
ByVal ReturnString As String, ByVal NumBytes As Long, _
ByVal FileName As String) As Long
'Считываем
iRez = GetPrivateProfileString("options", "DBPath", _
"", sTemp, iSize, Application.Path & "\MyFile.ini")
'Записываем
iRez = WritePrivateProfileString("options", "DBPath", sPath, _
Application.Path & "\MyFile.ini")
Записываешь сначало количество элементов, а потом в цикле и элементы.
Считываешь так же.

спасибо, я конечно умная, но к сожалению, в VBA не разбираюсь.........
можно это как-то легче написать? я в этом коде ничего не поняла.........

Цитата

Подскажите как средствами VBA можно сделать следующее:

Именно. Средствами Visual Basic for Application.
Однако. Этот способ наиболее легкий, а главное - классический.
Можете хранить информацию в реестре, но способ все равно тот же.
Вам нужно вызывать функции WINAPI для работы с реестром. Это придется делять в любом языке.
Стоит ли овчинка выделки? Решать вам.

Выше приведенные советы вполне разумны, но есть альтернатива - функции VB для чтения/записи файлов. Не буду вдаваться в теорию, приведу пример кода сброса данных из ListBox в файл. Проверил в VB6 - все работает. В VBA тоже должно, по идее.
Dim i As Integer
Open "listdata.txt" For Output As #1
For i = 0 To List1.ListCount - 1
List1.ListIndex = i
Print #1, List1.Text
Next i
Print #1, List1.List(i)
Close #1
Или так, на строчку короче (и, по идее чуть быстрее):
Dim i As Integer
Open "listdata.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next i
Print #1, List1.List(i)
Close #1
Ну а потом, когда нужно, считываешь эти данные обратно в ListBox.
Удачных экспериментов.

vickr спасибо большое. Я почти так и сделала ))
сохраняет в файл:

Код

Private Sub Form_Load() Dim a As String On Error Goto 1 Open "list.lst" For Input As 1 Do Until EOF(1) Input #1, a list1.AddItem a Loop 1 Close End Sub

Считавает из файла в ListBox:

Код

Private Sub Form_Unload() Open "list.lst" For Output As 1 For i = 0 To list1.ListCount - 1 Write #1, list1.List(i) Next Close End Sub

valex13 овчинка выделки не стоит.

т.е. наоборот, сначало код для считывания, а потом для записи....

Соблюдайте синтаксис! Пишите исходники так, чтобы их было легче читать. Делайте сноски в if ... else, for ... next, do while ... loop и т.д. Пишите комментарии если вы написали то, что может быть не понятно другим участникам и посетителям форума. Пишите когда указанный исходник может не работать! Просьба также помещать цитаты и куски кода в спец. рамки. Это не наезд, а попытка сделать форум лучше

Код

Private Sub Form_Load() Dim a As String ' мы исходим из того, что файл есть! ' лучше сделать в этом месте проверку ' на существование этого файла и создать ' файл в случае его отсутствия. Open App.Path & "\list.lst" For Input As #1 Do While Not EOF(1)    Input #1, a    List1.AddItem a Loop Close #1 End Sub Private Sub Form_Unload(Cancel As Integer) Open App.Path & "\list.lst" For Output As #1 For i = 0 To List1.ListCount - 1    Write #1, List1.List(i) Next Close #1 End Sub

Цитата

Соблюдайте синтаксис! Пишите исходники так

Ну ты суров, братишка

Цитата(cardinal @ 21.5.2003, 17:53)

Соблюдайте синтаксис! Пишите исходники так, чтобы их было легче читать. Делайте сноски в if ... else, for ... next, do while ... loop и т.д. Пишите комментарии если вы написали то, что может быть не понятно другим участникам и посетителям форума. Пишите когда указанный исходник может не работать! Просьба также помещать цитаты и куски кода в спец. рамки. Это не наезд, а попытка сделать форум лучше

Аминь.