Как связать приложения Office 2000 с помощью VBA. На примере Outlook и Excel

Листинг 3. Функция ParseString для вставки текстов вместо тэгов шаблона

Private Function ParseString(strMergedText As String, _
	DataRow As Range) As String
	Dim nStart As Integer
	Dim nEnd As Integer
	Dim nColNum As Integer
	Dim mmTagPrefix As String
	Dim mmTagSuffix As String

	mmTagPrefix = “<>”
	‘ замена тегов в исходном тексте
	While InStr(strMergedText, mmTagPrefix) > 0
		nStart = InStr(strMergedText, mmTagPrefix)
		nEnd = InStr(nStart, strMergedText,mmTagSuffix) + 1
		‘ Получает номер столбца
		nColNum = Val(Mid(strMergedText, _
			nStart + Len(mmTagPrefix), nEnd - nStart))
		strMergedText = Left$(strMergedText, nStart - 1) & _
			DataRow.Cells(1, nColNum).Value & _
			Right$(strMergedText,Len(strMergedText) - nEnd)
	Wend

	ParseString = strMergedText
End Function

Возврат


Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует