Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Wanet Telecoms Ltd on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by Fatbelly

  1. Fatbelly

    Excel Add-Ins

    Hi, maybe this can be of use. with following code you should retrieve all loaded add-inns Sub DisplayAddIns() Worksheets("Sheet1").Activate rw = 1 For Each ad In Application.AddIns Worksheets("Sheet1").Cells(rw, 1) = ad.Name Worksheets("Sheet1").Cells(rw, 2) =...
  2. Fatbelly

    Excel Add-Ins

    Hi, this could help you add this to your autoexec code This unloads the addInn AddIns("Name of addInn").Installed = False This loads the AddInn AddIns("Name of addInn").Installed = True
  3. Fatbelly

    How to lock a file with FSO

    Hi, I'm using File Scripting Object to store the last used sequential number in a txt file. This file is used by many users, but i want to avoid that it's opened simultainiously by more than one user at the same time. Therefore can somebody tell me how to lock a file, for other users, when...
  4. Fatbelly

    Connecting XL to AS400

    Hello, Can somebody help me with a clear answer on following: I want to retrieve(read) into a VBA Userform data from our AS400 in real time. I have the AS400 Library, Table and Field names. I also have the Client Access Express toolkit. What I don't know is the Code and which dll / XLL to use...
  5. Fatbelly

    Selecting a Page on a MultiPage Form in XL

    Hi all, Does anybody knows the code for Selecting a Page(Tab) on a MultiPage Form Select Case FormTag Case "CL" 'Here I need the code to Select the Page(Tab) of the MultiPage on the Form Case "CD" 'same code for other Tab End Select Much appreciate your help,
  6. Fatbelly

    Application.ActivePrinter port name in Excel ???

    Here is some code i found for the same problem Function NetworkPrinter(ByVal myprinter As String) On Error Resume Next Dim NetWork As Variant Dim X As Integer '/// Define NetWork Array \\ NetWork = Array("Ne00:", "Ne01:", "Ne02:", "Ne03:", "Ne04:", _ "Ne05:"...

Part and Inventory Search

Back
Top