“JavaScript required” error when opening an Excel sheet from SharePoint

I have created a SharePoint website with a document library to allow my team members to share Excel files more easily.

When they open Excel sheets, they are redirected to the Excel client app since their documents use a lot of macros and have protection incompatible with the Web App.

This works just fine for the majority of users including me. However, some team members get the error below. JavaScript Required JavaScript is required. This web browser does not support JavaScript or JavaScript in this web browser is not enabled. To find out if your web browser supports JavaScript or to enable JavaScript, see web browser help.

This error appears inside their Excel client app.

For some users, everything works fine. For others, Internet Explorer works and Chrome doesn’t. And for some, both Internet Explorer and Chrome do not work.

We all have the same settings because our browsers, Excel client app and Windows are managed by our organisation.

I have tried to reproduce the error by disabling my JavaScript, but SharePoint do not work at all when doing so. I have also tried to reset my browser settings.

Any help is appreciated! Thank you!

Tratar data frames y copiar en Excel con pandas (python)

tengo dos dudas, quiero realizar un script que me compare dos columnas de dos excels, service#1 y service#2, si los valores son iguales, copiar el resto de columnas en el excel2.

tengo la comparación hecha, y he conseguido copiar la fecha de un excel a otro, el resto de campos no lo he conseguido. Tengo este error que no soy capaz de solucionar:

ValueError: could not convert string to float: CH555133

Este error viene en la linea de ‘Cambio’, ‘Baja’ y ‘Comentarios’.

Además no se como guardar solo las columnas modificadas en el excel2.

Adjunto todo el código.

import pandas as pd  dataframe1 = pd.read_excel('Excel1.xlsx', 'Sheet1', usecols=(0,1,2,3,4,5)) dataframe2 = pd.read_excel('Excel2.xlsx', 'Sheet2', usecols=(0,1,2,3,4,5))  for ind1 in dataframe1.index:     for ind2 in dataframe2.index:         if ((dataframe1.at[ind1, 'Service #1']==dataframe2.at[ind2, 'Service #1']) and (dataframe1.at[ind1, 'Service #2']==dataframe2.at[ind2, 'Service #2'])):             #print dataframe1.at[ind1, 'Service #1']             dataframe2.at[ind2, 'Fecha']= dataframe1.at[ind1, 'Fecha Cambio']             dataframe2.at[ind2, 'Cambio']= dataframe1.at[ind1, 'Cambio']             dataframe2.at[ind2, 'Baja']= dataframe1.at[ind1, 'Baja']             dataframe2.at[ind2, 'Comentarios']= dataframe1.at[ind1, 'Comentarios FW'] print dataframe2 

I will do any kind of Excel work for $10

I will do any kind of formula in your sheet to do work easily and faster than before. I will create any type of sheet like real estate, inventory, cash flow, Bank reconciliations, Excel Invoice, Financial Planning, Accounting, Drop down list, remove the duplicate, Employee Attendance & Salary Sheets.

by: Mayur1322
Created: —
Category: Virtual Assistant
Viewed: 132

Excel Tutorials at a Glance

Excel is a massive application with 1000s of features and 100s of ribbon (menu) commands. It is very easy to get lost once you open Excel. So one of the basic survival skills is to understand how to navigate Excel and access the features you are looking for.

xlsoffice.com shares a well compiled list of Excel Tutorials you can't live without.

Download excel file from database using PHP

I am working in a project where I need to download files from my website.

I am storing file as a LONGBLOB in MYSQL, I tried to download them again but it gives me file with php extension. When I use a file from my laptop it work fine but when I use file form my database, it doesnt work.

    $  dbh= new PDO("mysql:host=localhost;dbname=smi","root","");     $  id=isset($  _GET['id_fichier'])? $  _GET['id_fichier']:"";     $  stat=$  dbh->prepare("select * from fichier where id_fichier=?");     $  stat->bindparam(1,$  id);     $  stat->execute();     $  row=$  stat->fetch();         $  file = $  row['fichier'];         $  type = $  row['type'];         header('Content-Description: File Transfer');         header('Content-Type:'.$  type);         header('Content-Disposition: attachment; filename='.basename($  file));         header('Content-Transfer-Encoding: binary');         header('Expires: 0');         header('Cache-Control: must-revalidate, post-check=0, pre-check=0');         header('Pragma: public');         header('Content-Length: ' . filesize($  file));         ob_clean();         flush();         readfile($  file);         exit; 

I expect the original file but I get empty or damaged file.

Best most efficient way to loop through files using VBA Excel

I have a procedure for looping through all files in folders and subfolders starting at a folder which the user can select. The user can select both the source and target folder. I’m using Excel VBA for this. The worksheets contain all the files names or part of it, to search for.

It works like this. I have function GetFiles which returns a string (including the path) separated by a pipeline (|). Then I loop through all the cells in column A which contains the filename (or part of it) to search for. The GetFiles loops through all the folders and subfolders from the selected Source path. This takes longer if a High level of the source folder is selected.

The main function looks like this:

Sub MoveFilesToFolder()      Dim filePath As String: filePath = ""     Dim moveToPath As String: moveToPath = ""     Dim filename As String     Dim fileNameFront As String     Dim fileNameRear As String     Dim currentFileName As String     Dim cell   As Range     Dim fileCopied As Boolean: fileCopied = False     Dim i      As Integer     Dim J      As Long     Dim StartTime As Double     Dim SecondsElapsed As Double     Dim result As String     Dim ws     As Worksheet     Dim frm    As ufImageSearcher      ExactMatch = True     OverwriteExistingFile = False      Application.DisplayAlerts = False     Application.ScreenUpdating = False      On Error GoTo ErrorHandling      If (wsExists("Images")) Then          fileNameString = ""          'filePath = InputBox("Path to the files, close with backslash (\)", "Source folder", ActiveWorkbook.Path)         'moveToPath = InputBox("Path to copy files to! Close with backslash (\)", "Target folder", ActiveWorkbook.Path & "\copy\")          filePath = GetFolderPath("Bron directory")         If (IsStringEmpty(filePath)) Then             Exit Sub         End If         moveToPath = GetFolderPath("Doel directory")         If (IsStringEmpty(moveToPath)) Then             Exit Sub         End If          If Not (IsStringEmpty(filePath) Or IsStringEmpty(moveToPath)) Then              If ((FolderExists(filePath)) And _                (FolderExists(moveToPath))) And (filePath <> moveToPath) Then              If Right(moveToPath, 1) <> "\" Then                 moveToPath = moveToPath & "\"             End If              If (Dir(moveToPath & "*.*") <> "") Then                 result = MsgBox(moveToPath & " contains files! Choose an empty folder!" & _                          vbCrLf & vbCrLf & "Go to folder: " & moveToPath & "?", vbYesNo + vbQuestion, "Result!")                 If (result = vbYes) Then                     OpenFolderInExplorer (moveToPath)                 End If                 Exit Sub             End If              wsActivate ("Images")             Set frm = New ufImageSearcher              With frm                 .lblSource.Caption = filePath                 .lblTarget.Caption = moveToPath                 .Show                  If .Tag <> "Canceled" Then                     ExactMatch = .cbxExactMatch.Value                     OverwriteExistingFile = .cbxOverwrite.Value                 Else                     Exit Sub                 End If             End With              StartTime = Timer              'Get all files, including the path, seperated with a pipeline.             GetFiles (filePath)              If Not (IsStringEmpty(fileNameString)) Then                 Dim imgArray As Variant: imgArray = Split(fileNameString, "|")                 'Column A contains all strings which are used to compare to the found files from the GetFiles-function                   For Each cell In ActiveSheet.Range("A1:A" & Range("A1").End(xlDown).row)                     DoEvents                     fileCopied = False                     filename = Mid(cell.Value, lastpositionOfChar(cell.Value, "/") + 1, Len(cell.Value))                      Application.StatusBar = "(Nr. of files:" & CStr(UBound(imgArray)) & ")"                       If Not (IsStringEmpty(filename)) Then                         For i = LBound(imgArray) To UBound(imgArray)                             DoEvents                             If Not (IsStringEmpty(CStr(imgArray(i)))) Then                                 If ExactMatch Then                                     If (GetFileName(imgArray(i)) = filename) Then                                         If DoesFileExist(moveToPath & GetFileName(imgArray(i))) And Not OverwriteExistingFile Then                                             FileCopy imgArray(i), moveToPath & GetFileName(imgArray(i)) & "-" & Format(Now, "yyyymmddhhmmss")                                         Else                                             FileCopy imgArray(i), moveToPath & GetFileName(imgArray(i))                                         End If                                         fileCopied = True                                          If fileCopied Then                                             ActiveSheet.Range("B" & cell.row).Value = imgArray(i)                                              For J = 2 To 15                                                 Dim newFileName As String                                                 newFileName = CreateFileName(CStr(imgArray(i)), LeadingZeroString(J))                                                 If Not (IsStringEmpty(newFileName)) Then                                                     If (DoesFileExist(newFileName)) Then                                                         If Not (IsFileOpen(newFileName)) Then                                                             FileCopy newFileName, moveToPath & Right(newFileName, Len(newFileName) - lastpositionOfChar(newFileName, "\") + 1)                                                             ActiveSheet.Range(GetColLetter(J + 1) & cell.row).Value = newFileName                                                             ActiveSheet.Range(GetColLetter(J + 1) & cell.row).Font.Color = RGB(0, 102, 0)                                                         End If                                                     Else                                                         ActiveSheet.Range(GetColLetter(J + 1) & cell.row).Value = "(Niet aanwezig) " & Right(newFileName, Len(newFileName) - lastpositionOfChar(newFileName, "\") + 1)                                                         ActiveSheet.Range(GetColLetter(J + 1) & cell.row).Font.Color = RGB(255, 153, 51)                                                     End If                                                 End If                                             Next J                                         End If                                     End If                                 Else                                     If (InStr(1, GetFileName(imgArray(i)), filename, vbTextCompare) > 0) Then                                         If Not (IsFileOpen(CStr(imgArray(i)))) Then                                             If DoesFileExist(moveToPath & GetFileName(imgArray(i))) And Not OverwriteExistingFile Then                                                 FileCopy imgArray(i), moveToPath & GetFileName(imgArray(i)) & "-" & Format(Now, "yyyymmddhhmmss")                                             Else                                                 FileCopy imgArray(i), moveToPath & GetFileName(imgArray(i))                                             End If                                             fileCopied = True                                              'Find first empty columnid.                                              lCol = Cells(cell.row, Columns.Count).End(xlToLeft).Column                                             ActiveSheet.Cells(cell.row, lCol + 1).Value = imgArray(i)                                         End If                                     End If                                  End If                             End If                         Next i                         If Not fileCopied Then                             ActiveSheet.Range("B" & cell.row).Value = "** NOT FOUND **"                             ActiveSheet.Range("B" & cell.row).Font.Color = RGB(250, 0, 0)                         End If                     End If                 Next             End If              Worksheets("Images").Columns("B:Z").AutoFit             SecondsElapsed = Timer - StartTime              Application.DisplayAlerts = True             Application.ScreenUpdating = True              result = MsgBox("Date Exported in: " & moveToPath & vbCrLf & "This was done in: " & Format(SecondsElapsed / 86400, "hh:mm:ss") & " seconds." & _                      vbCrLf & vbCrLf & "Go to folder: " & moveToPath & "?", vbYesNo + vbQuestion, "Resultaat!")             If (result = vbYes) Then                 OpenFolderInExplorer (moveToPath)             End If         Else              If Not (FolderExists(filePath)) Then                 MsgBox (filePath & ": Path is niet gevonden!")             End If             If Not (FolderExists(moveToPath)) Then                 MsgBox (moveToPath & ": Path is niet gevonden!")             End If         End If     Else         MsgBox ("No Source and/or Target selected" & vbCrLf & _                "Source: " & filePath & vbCrLf & _                "Target: " & moveToPath)     End If Else     MsgBox ("This procedure expect a worksheet 'Images' " & vbCrLf & _            "and the name or part of the name of the image to find in column A") End If Done:     If (IsObject(ws)) Then         Set ws = Nothing     End If      Application.DisplayAlerts = True     Application.ScreenUpdating = True     Exit Sub ErrorHandling:     MsgBox ("Something went wrong!(" & err.Description & ")") End Sub 

The GetFiles function looks like:

Sub GetFiles(ByVal path As String)      On Error GoTo ErrorHandling     Dim fso    As Object: Set fso = CreateObject("Scripting.FileSystemObject")     Dim folder As Object: Set folder = fso.GetFolder(path)      Dim subfolder As Object     Dim file   As Object      For Each subfolder In folder.SubFolders         DoEvents         GetFiles (subfolder.path)     Next subfolder      For Each file In folder.Files         fileNameString = fileNameString & file.path & "|"     Next file  Done:     Set fso = Nothing     Set folder = Nothing     Set subfolder = Nothing     Set file = Nothing      Exit Sub  ErrorHandling:     MsgBox ("Something went wrong!(" & err.Description & ")") End Sub 

It all works, but it can take a lot of time to run, especially when there are a lot of folders and subfolders under the selected source folder.

To give you an idea, the procedure takes 13 minutes to compare 100 rows in column A against 10.000 files found. The means it loops 100 x 10.000 = 1milion times.

I have two questions:

  1. Is there a more efficient way of doing this using Excel VBA?
  2. Is the DoEvents function used in the correct way?

PHP EXCEL issue in data import with updated excel format .xlxs

I’m using PHPexcel library to import data from excel file to MySQL by using Ajax and PHP. It works fine with the old format excel file sample.xls (The Excel 97 – Excel 2003).

But I want to import data from sample.xlsx format. PHPexcel not working with this format.

I searched but can’t find a solution. Any help will be highly appreciated.

AppleScript for Excel to select/copy all cells?

Applescript can tell Excel to select a specific range of cells, e.g.

select (range "A1:B20")

and you can copy cells:

copy (range "A1:B20")

However, how can you tell Excel to select all the cells in a worksheet, or to copy all the cells in a worksheet? It seems to require a specific range. However, of course, when you are working with Excel directly you can just press cmd+A to select all.