Hello
Is it possible at all to modify Remote Licensing mode in Remote Desktop Host Session Configuration via Powershell ?
The manual steps are (Windows Server 2008)
1. Launch Remote Desktop Host Session Configuration
2. Select Remote Licensing mode
3. Select Per User
4. Then on the same...
I've started with something simplier. I've started to learn PS. Found some code:
So inserting "string" in google and submit
$IE= new-object -com InternetExplorer.Application
$IE.navigate2(“http://www.google.com”)
while ($IE.busy) {
sleep -milliseconds 50
}
$IE.visible=$true...
Hello guys.
Is it possible to open html page than insert login and pass and than click "connect", than after login "remember" html code in some txt file ?
I found some code
$ie = New-Object -com "InternetExplorer.Application"
$ie.Navigate("http://page.com")
$ie.visible = $true
do { sleep 5...
sorry SkipVought
I really didn't have time to sit and learn vbs as a PRO like you. I needed simple and fast solution to escape from my "problem". I'll back soon to vbs but maybe I'll have more time to learn this subject.
Thanks for you help and all suggestions. Have a nice day.
Got it
I've converted it to FUNCTION and it's working :D
OK
Function OK()
Const xlDelimited = 1
Const xlNormal = -4143
Dim Excel
Set Excel = CreateObject("Excel.Application")
With Excel
.Workbooks.Open "C:\elle.csv"
.Sheets(1).Columns("A").TextToColumns .Range("A1"), xlDelimited, , , ...
this VBA works fine
Sub Importar()
Dim Str1 As String
Dim i As Integer
Dim j As Long
Dim Boo1 As Boolean
With Application.FileDialog(msoFileDialogFilePicker)
.AllowMultiSelect = True
.Filters.Clear
.Filters.Add "Archivos Punto y Coma (*.csv)", "*.csv"...
Ok so is it possible to open this semicolon separeted file with excel, than change data to be seperated in each column by " ; " and save as XLS ?
I have this code
OK
Function OK()
dim oEx
set oEx=Createobject("Excel.Application")
oEx.Workbooks.Open "C:\testing\in.csv"...
Now it working
OK
Function OK()
dim wb
Set objExcel = CreateObject("Excel.Application")
set wb = objExcel.Workbooks.Open("C:\BegoExcel\(Bego)-BONDUELLE-Rapport de sauvegarde du 07-05-2012 - Copy.xls")
wb.worksheets(1).Range("A1:Z23").Autofilter
wb.save
wb.close
set wb =...
I tried to develop new code.
Function ok()
set ce = CreateObject("Excel.Application")
newFileName="C:\BE\testnew.xls"
ce.Workbooks.Open "C:\BE\1.csv"
ce.ActiveWorkbook.SaveAs newFileName
ce.ActiveWorkbook.Close(0)
ce.Quit
Set ce = Nothing
end function
but no results. Nothing happening.
Hi.
vbscript
Function OK()
dim wb as object
Set objExcel = CreateObject("Excel.Application")
set wb = objExcel.Workbooks.Open("c:\Copy.xls")
wb.worksheets(1).Range("A1:Z23").Autofilter
wb.save
wb.close
set wb = nothing
Set objExcel = Nothing
End Function
I've tested again with different XLS... maybe it problem with with
with ...
end with
Is it possible to "change it" somewhow to different "source code" ?
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.