списки и массивы в VBA

Question

Я очень новичок в написании на VB.NET, и я даже не понял, что между VB.NET и VBA существует значительная разница. Я пишу свое приложение в Visual Studio, но я понял, что мне нужно будет перенести его в VBA в Outlook, и есть некоторые проблемы с синтаксисом, с которыми мне нужно иметь дело. Я уже обыскал, но я не могу найти какую-либо определенную ссылку (например, msdn) для VBA или даже VB6, которая из того, что я слышу, намного ближе к VBA, чем VB.NET.

Здесь я укажу соответствующие разделы кода. Если кому-то нужен больше контекста, пожалуйста, дайте мне знать - я могу опубликовать все это, это не так долго. Я бы хотел, чтобы этот пост был как можно более простым.

Dim DateToday As String = String.Format("0:{yyyy/MM/dd}", DateTime.Now) 
Dim Computers As New SortedList() 
Dim disabledList As New List(Of String) 
'\\ four additional lists 
Dim compArray As Array 

... 

Computers.Add(ComputerName, ErrorState) 

Новые списки и отсортированный список дают Ожидаемое: Конец заявления в скобках после списка. В массиве представлен параметр Ожидаемый: идентификатор в массиве. Строка DateToday дает ожидаемый конец оператора на знаке равенства. Попытка добавить к отсортированному списку дает ожидаемое: =.

Я работаю с VB.NET в течение двух или трех дней, и я никогда раньше не работал с VBA или VB6, поэтому у меня просто нет опыта, необходимого для того, чтобы узнать, куда идти дальше. Если кто-то из вас захочет помочь мне, я бы очень признателен!

Answer 1

Вам придется изменить некоторые типы данных, но основы того, что вы только что опубликовали, могут быть преобразованы в нечто похожее на это, учитывая, что используемые мной типы данных могут быть неточными.

Dim DateToday As String: DateToday = Format(Date, "yyyy/MM/dd") 
Dim Computers As New Collection 
Dim disabledList As New Collection 
Dim compArray(1 To 1) As String 

'Assign data to first item in array 
compArray(1) = "asdf" 

'Format = Item, Key 
Computers.Add "ErrorState", "Computer Name" 

'Prints "ErrorState" 
Debug.Print Computers("Computer Name") 

Коллекции не сортируются, поэтому, если вам нужно отсортировать данные, вы, вероятно, захотите использовать массив.

Вот ссылка на ссылку разработчика перспективы. http://msdn.microsoft.com/en-us/library/office/ff866465%28v=office.14%29.aspx

Другой отличный сайт, чтобы помочь вам начать это http://www.cpearson.com/Excel/Topic.aspx

Двигаясь все к VBA из VB.Net не собирается быть простым, так как не все типы данных, такие же, и у вас нет .Net framework. Если вы застряли, просто разместите код, который вы застряли в конвертировании, и вы, несомненно, получите некоторую помощь!

Edit:

Sub ArrayExample() 
    Dim subject As String 
    Dim TestArray() As String 
    Dim counter As Long 

    subject = "Example" 
    counter = Len(subject) 

    ReDim TestArray(1 To counter) As String 

    For counter = 1 To Len(subject) 
     TestArray(counter) = Right(Left(subject, counter), 1) 
    Next 
End Sub