When exporting text to a .tab file, then opening a Word doc, then trying to insert a portion of the tab file into this Word doc, I get an error message - "Run-time error '4605':  This method or property is not available because this command is not available for reading."  When I click on Debug, it then highlights the Selection.InsertFile lines.  I've never received this error before; however, I have a new PC, Windows 10, 32-bit OpSys (to allow DOS), and MS Office Professional Plus 2013.  I checked and the .tab file does exist.  Any suggestions?

    ChangeFileOpenDirectory "R:\fmExports\MastersandMacros"
    Documents.Open FileName:="woodrich_letterhead.doc", ConfirmConversions:= _
        False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
        PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
        WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:=""
       
    ChangeFileOpenDirectory "R:\fmExports"
    Selection.InsertFile FileName:="woodrich4word.tab", Range:="", _
        ConfirmConversions:=False, Link:=False, Attachment:=False

I need help with VBA code that will check a String to see if it contains some substrings, using logical operators. If it the does contain the stubstrings then it should display a message Box that should confirm that the string does contain the sub strings I am looking for.
Please look at the code to see what I would like to do.
 

Dim myString As String

myString = “I like mangoes and oranges.”
 
      If InStr(myString, "mangoes") And InStr(myString, "oranges")  > 0 Then 
           MsgBox  “The string does contain the words mangoes and oranges”
      Else 
      
       MsgBox “The string does not contain the words you are looking for”

End if

Select all Open in new window

In the code I have written, I am expecting that because myString does contain both the words “mangoes” and “oranges” in it my condition will return true and I will see the message “The string does contain the words mangoes and oranges”. However, this code is not working. I would appreciate help in how I should write this code to get the desired result.
Please note that I would like the condition to return true only if myString contains both the word “mangoes’ and “oranges” in it.
Thank you for your help.

In Access db when a user clicks the Mail Report button on a form an email is created and populated with the information to send to a Distribution List. I would like the user to be presented with a list of email addresses to be able to select from, how do I do that. VB newbie.  Below is my code for sending the form.

strDocName = "PReport"
    strFilter = "DQR ='" & Me!DQR & "'"
    DoCmd.OpenReport strDocName, acViewPreview, , strFilter
    DoCmd.SendObject acSendReport, "PReport", "PDF Format", "New-HIX-DQR@company.com;", "", , "New DQR", "Please see the latest DQR issued by HIA QA", , False

I am using VB6 and when I run the following code, I get a "Text property is read only" error.  I know the output of the recordset contains a blank value and a blank value is located in the Combo6.  Why would it produce an error when executing Combo6 = rec!SubGroup if the value is basically there?

If Not IsNull(rec!SubGroup) Then
                    Combo6 = rec!SubGroup
                    End If

Select all Open in new window

Hi

I have this below code that generates BarCodes based on values from my MSHFlexgrid1 while the picture is in a PictureBox ("Picture1")

 when run in the IDE, I have each Picture related to the Value from my MSHFlexgrid1.
Ex:

When i run it with the .exe, this is when i have the problem where the pictures don't match.
Ex:

The code i have is:

  xlObj.ActiveWorkbook.ActiveSheet.range("A1") = "BARCODE"
    xlObj.ActiveWorkbook.ActiveSheet.range("B1") = "BARCODE VALUE"
    xlObj.ActiveWorkbook.ActiveSheet.Columns("A").ColumnWidth = 37.59


     With MSHFlexGrid1
        Dim gridRow As Long, xlRow As Long, LastRow As Long, xlDown As Long

        For gridRow = 1 To MSHFlexGrid1.Rows - 1
            If MSHFlexGrid1.TextMatrix(gridRow, 1) <> "" Then
  
                For xlRow = 2 To (MSHFlexGrid1.Rows - 1) + 1
                    If xlObj.ActiveWorkbook.ActiveSheet.Cells(xlRow, 2) = "" Then

                        Form1.Text1.Text = MSHFlexGrid1.TextMatrix(gridRow, 1)
                        makeBC
                        
                        DoEvents

                        '********************************************************************************************************
                        SavePicture Picture1.Image, "C:\Pic.bmp"
                        '********************************************************************************************************

                       ' Sleep 200 ' to

Select all Open in new window

…

Hi Experts,
Wondering if there is a way to link an Access 2003 application to an Excel XLSX file?
if not, can someone post code to convert file from XLSX to XLS?
Thanks

My Windows 10 laptop has an extension screen on its right hand side.

MyProject xl file should position a microsoft visio window precisely & dynamically over part of the xl Main window. The visio file is made into a child of the excel file, so whenever the xl file is moved around, the visio window moves along, ontop. This Parent-child relationship is stable and the visio window CANNOT move independently of the xl window.

I use the API and VBA code below to position the Visio window ontop of the xl window.

When I dynamically 'drag' MyProject xl window to change its dimensions, the xlWorkbookEvent: Private Sub Workbook_WindowResize(ByVal Wn As Window) calls Sub window_vis_setSize() [below] which recalculates the position of the visio window.

SUCCESS: This works perfectly WHEN MyProject xl is on my extension screen.
My PROBLEM: when MyProject xl (plus visio window) is dragged onto the laptop monitor, win10 automatically automatically shrinks the windows to fit the smaller laptop monitor.
However, the resizing calculation for the visio window overcompensates the required reduction in its size, making the visio window SHRINK relative to the Xl window, and to position inaccurately within the xl window.
But the PROBLEM is REVERSIBLE: When MyProject xl (plus visio window) is dragged FROM the laptop monitor ONTO the Extension monitor, the visio window reSizes & positions perfectly onto the xl window.

Please can you tell me/ point me toward solutions to this effect …

How to edit 2 cell fields in multiple excel files in a folder/subfolders automatically using VBA based on starting name of file

For example I have a root folder of c:\master templates
Under that folder I have subfolders with clients names as the folders
Under each client folder I have folders with job numbers
Under those job number folders are the excel files that I want to change
They all start with the name of set_up sheet *
There could be 2 set_up sheet excel files or 3 or 5, it all varies based on client and job, but they are all named the same starting with "set_up sheet*"
I want to change 2 cells in each of these set_up sheet*.xls files for every directory/subdirectory that contains those files
Basically replace 2 fields
M14 with "Stick Out"
S14 with "Vending #"
Then I want to save each excel file back and close and then loop through and do the same thing for all the other excel files named the same thing in each directory/sub

Here is the code I have so far which I know isn't correct. It's just what I wrote by watching a youtube video on it. I know I am on the right track I just need some help

Sub LoopThroughDirectorytoedit()
Dim MyFile As String
Dim Filepath As String
Dim q As Long

Filepath = "C:\mastertemplates\"

MyFile = Dir(Filepath)

Do While Len(MyFile) > 0
If MyFile = "bookz.xlsm" Then
Exit Sub
End If

Workbooks.Open (Filepath & MyFile)
For q = 1 To Application.Worksheets.Count
Worksheets(q).Activate
Range("M14") = "Stick …

I had a GREAT spreadsheet until I added some lines and columns.  

In the account number fields (found throughout) when you entered 1234
you got 1234-00-00
When you entered 12
you got 1200-00-00
When you entered 123456
you got 1234-56-00

Suddenly, not only is that routing not working, once active content is enable, any entry to a custom or numeric field gets a Debug error. Sample spreadsheet is attached.

I know the problem is in VBA, but even when I update the routine with the appropriate cell numbers, ranges, I still get the error.
ABC---Last-National-Bank---1801-Ban.xlsm

project to pragmatically click email "confirm" must be in VB6

the program must:

scan inbox
open email if keyword in subject line example  "Bitrex"
find button with keyword in it example  "confirm" and select it
capture the result screen and save in folder  

Im not sure where or how here on Experts i can post this , or even if I can , any help appreciated.

VB logon script that will set IE so when you open a new tab the user's frequent sites will show up, not MSN's top sites.

I'm using the below code to delete outlook items wit xlsx attachments. The issue encountered is that only some of the emails are deleted. Any thoughts

On Error GoTo SaveAttachmentsToFolder_err

    Dim ns As NameSpace
    Dim Inbox As Outlook.MAPIFolder
    Dim Item As Object
    Dim Atmt As Outlook.Attachment
    Dim FileName As String
    
    Dim SubFolder As MAPIFolder
    
    
    
    
    Set ns = GetNamespace("MAPI")

    Set recip = ns.CreateRecipient("OMHA.HQ.MI.REPORTS")
   
    Set Inbox = ns.GetSharedDefaultFolder(recip, olFolderInbox)
    
    Set SubFolder = Inbox.Folders("MATS")


    If SubFolder.Items.Count = 0 Then
    
        MsgBox "There are no messages with attachments in the MATS folder.", vbInformation, _
                "Nothing Found"
        Exit Sub
    End If

    
    
    
    'Delete Outlook items
    For Each Item In SubFolder.Items
    For Each Atmt In Item.attachments
    If Atmt.Type = 1 And InStr(Atmt, "xlsx") > 0 Then
    Item.Delete
    End If
    Next Atmt
    Next Item
   
    
    
  
    
    ' Clear memory
SaveAttachmentsToFolder_exit:
    Set Atmt = Nothing
    Set Item = Nothing
    Set ns = Nothing
    Exit Sub
' Handle Errors
SaveAttachmentsToFolder_err:
    MsgBox "An unexpected error has occurred." _
        & vbCrLf & "Please note and report the following information." _
        & vbCrLf & "Macro Name: GetAttachments" _
        & vbCrLf & "Error Number: " & Err.Number _
        & vbCrLf & "Error Description: " & 

Select all Open in new window

…

This code only captures the first part of the page, I think because the whole page doesn't load until you scroll to the bottom of the page, which I don't know how to do programatically.

Set http = New WinHttpRequest

x = "https://www.flickr.com/photos/conationalguard/page1"

http.Open "GET", x, "False"
http.Open
http.Send
myval = http.ResponseText

Select all Open in new window