Mở nhiều ứng dụng bằng 1 lần click

Dùng Notepad tạo file đuôi cmd hay đuôi .bat

Nội dung
Start "E:\Stata13\Stata-mp.exe"
Start "C:\Programfile\Dropbox\Dropbox.exe"

Mỗi dòng 1 lệnh

Cho thuê nhà trọ

Ngõ 18, Tả Thanh Oai, Thanh Trì, Hà Nội

Phòng rộng 14m2

Có bàn nấu ăn

Nước sạch, điện đầy đủ

Giá <600k>

Liên hệ: 0904486311

Convert xls to xlsx

Sub Xls_to_Xlsx()

    Dim strCurrentFileExt   As String
    Dim strNewFileExt       As String
    Dim objFSO              As Object
    Dim objFolder           As Object
    Dim objFile             As Object
    Dim xlFile              As Workbook
    Dim strNewName          As String
    Dim strFolderPath       As String

    strCurrentFileExt = ".xls"
    strNewFileExt = ".xlsx"
    strFolderPath = "F:\Dropbox\temp\ldvl\ldvl2009\bygender"
    If Right(strFolderPath, 1) <> "\" Then
        strFolderPath = strFolderPath & "\"
    End If

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.getfolder(strFolderPath)
    For Each objFile In objFolder.Files
        strNewName = objFile.Name
        If Right(strNewName, Len(strCurrentFileExt)) = strCurrentFileExt Then
            Set xlFile = Workbooks.Open(objFile.Path, , True)
            strNewName = Replace(strNewName, strCurrentFileExt, strNewFileExt)
            Application.DisplayAlerts = False
            Select Case strNewFileExt
            Case ".xlsx"
                xlFile.SaveAs strFolderPath & strNewName, XlFileFormat.xlOpenXMLWorkbook
            Case ".xlsm"
                xlFile.SaveAs strFolderPath & strNewName, XlFileFormat.xlOpenXMLWorkbookMacroEnabled
            End Select
            xlFile.Close
            Application.DisplayAlerts = True
        End If
    Next objFile

ClearMemory:
    strCurrentFileExt = vbNullString
    strNewFileExt = vbNullString
    Set objFSO = Nothing
    Set objFolder = Nothing
    Set objFile = Nothing
    Set xlFile = Nothing
    strNewName = vbNullString
    strFolderPath = vbNullString
End Sub

Nguồn