Get more info about an IP address or domain name, such as organization, abuse contacts and geolocation.
One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.
' create a new file based on the merge document Set doc = wrdApp.documents.Add(sPathFileTemplate) ' Hide Word (actually just make sure it doesn't show) wrdApp.Visible = True ' ' Connect the datasource to the merge document doc.MailMerge.OpenDataSource Name:=ActiveWorkbook.FullName, LinkToSource:=True, AddToRecentFiles:=False, SQLStatement:="SELECT * FROM `MergeRecords$`" ' Execute the merge With doc.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True ' With .DataSource ' .FirstRecord = wdDefaultFirstRecord ' .LastRecord = wdDefaultLastRecord ' End With .Execute Pause:=False End With ' ' Dim docloop As Document ' ' ' ' For Each docloop In wrdApp.documents ' myName = docloop
rs.Open strSQL, con, adOpenStatic c = 37 If rs.RecordCount > 0 Then Do Until rs.EOF Dim myItem As String myItem = CStr(rs(2)) & Space(1) & "-" & Space(1) & CStr(FormatCurrency(rs("amtofcharge"))) Workbooks.Item(2).Sheets("MergeRecords").Cells(myline, c) = myItem c = c + 1 rs.MoveNext Loop Else Workbooks.Item(2).Sheets("MergeRecords").Cells(myline, c) = "Not Applicable" End If
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
|How do I use a SUMIF function when the cells to add together are not adjacent to each other?||19||80|
|VBA kill active workbook in before close event with condition||3||38|
|VBA to clear/put no-fill the cells background color for all sheets of active workbook||5||31|
|Excel Index/Match issue||4||11|
Join the community of 500,000 technology professionals and ask your questions.