Tag: 文件

使用javascript上传和保存Excel文件C＃webservice: 我有一个JavaScript代码，使用XMLHttpRequest对象上传文件到服务器。我正在使用C＃编写的Web服务中将该文件接受为Stream： int uploadFile(Stream file) { using (FileStream fileStream = File.Create(System.AppDomain.CurrentDomain.BaseDirectory + "file.csv")) { byte[] buffer = new byte[8 * 1024]; int len; while ((len = file.Read(buffer, 0, buffer.Length)) > 0) { fileStream.Write(buffer, 0, len); } } //process file return 0; } 在JavaScript中，文件作为表单数据对象发送： var fd = new FormData(document.forms.namedItem("file")); var req = new XMLHttpRequest(); req.open("POST", url, […]

在Wicket DownloadLink上的setCacheDuration: 我目前在Wicket中使用downloadLink来允许用户下载一个创build的excel文件，然后被删除。当这是通过SSL完成IE给我一个错误：“无法下载。 Internet Explorer无法打开此网站。请求的网站不可用或无法find。请稍后再试。 “ 这里： http : //support.microsoft.com/kb/323308 从上面的微软支持链接看了一些后，似乎是因为它是通过SSL，而我有 response.setHeader("Cache-Control", "no-cache, max-age=0, must-revalidate, no-store"); 我设置我的downloadLink像这样： private void setupDownloadLink() { IModel excelFileModel = new AbstractReadOnlyModel() { public Object getObject() { return excelCreator(); } }; auditDownloadlink = new DownloadLink("auditDownloadlink", excelFileModel); auditDownloadlink.setOutputMarkupPlaceholderTag(true); auditDownloadlink.setDeleteAfterDownload(true); auditDownloadlink.setCacheDuration(Duration.NONE); auditDownloadlink.setVisible(false); findUserForm.add(auditDownloadlink); } However, it seems to work if I do: […]

如何从资产文件夹中打开一个excel文件: 我试图从资产文件夹使用Excel库打开Excel文件，但应用程序崩溃，我设法将两个代码相互结合，这就是为什么它不工作。任何帮助？谢谢。 public class MainActivity extends Activity { Button open; @Override protected void onCreate(Bundle savedInstanceState) { super.onCreate(savedInstanceState); setContentView(R.layout.activity_main); open=(Button)findViewById(R.id.button1); open.setOnClickListener(new View.OnClickListener() { @Override public void onClick(View v) { // TODO Auto-generated method stub File file = new File("file:///android_asset/data.xlsx"); try { Workbook workbook = Workbook.getWorkbook(file); } catch (BiffException e) { // TODO Auto-generated catch block […]

外部文件属性未更新 – VBA: 我有一个macros读取外部文件属性像创builddate。我读取的文件存储在服务器上。不幸的是，当第一次运行macros时，返回的date并不是正确的。只有当我打开文件或多次运行macros时，才会返回创build的正确更新date。有没有人有一个想法如何解决这个问题，除非打开文件或循环，直到date是正确的？这里是代码： strFilename = "<FILENAME>" Workbooks.Open strFilename Workbooks("strFilename").Close Set oFS = CreateObject("Scripting.FileSystemObject") lastcreatedLTVfile = CDate(Format(oFS.GetFile(strFilename).DateCreated, "dd.mm.yyyy"))

在服务器上创buildExcel文件后，如何自动删除Excel文件并将其返回给用户？: 我正在Web服务器上创build一个Excel文件，使用OleDb连接物理文件（以及物理文件）和追加logging。然后，我通过MVC向用户返回一个FilePathResult ，并希望由于对所附logging的数据保护问题而删除物理文件。我曾尝试在Finally子句中使用File.Delete ，但是我得到一个File Not Found错误，这意味着当MVC尝试将文件发送给用户时文件已经消失。我想创build文件作为一个MemoryStream，但我认为OleDb需要一个物理文件连接，所以这不是一个选项。任何build议如何删除文件后，在一个操作中返回？编辑按要求，这是我工作，但我不知道它是如何帮助:) Public Function ExportAllOutputs() As FilePathResult ' Create Export File Name Dim ExportFilename As String = Replace(Me.Name, " ", "_") & "_Outputs.xls" Try ' Create Export File CreateExportFile(ExportFilename) ' Populate Export File For Each OutputType As OutputTypeEnum In [Enum].GetValues(GetType(OutputTypeEnum)) ExportHelper.AppendOutputs(ExportFilepath & ExportFilename, Me.GetOutputs(OutputType), Me.ProgrammeID) Next […]

将现有的VBS文件夹search应用到子文件夹？: 我正在使用下面的代码search一个文件夹的文件名，打开文件运行一个Excelmacros，保存文件，并closures。我想扩大这个循环通过子文件夹，并做同样的事情。应该只有一层子文件夹，但该层中有多个文件夹。 dir = "C:\Users\ntunstall\Desktop\test" Sub RunMacroAndSaveAs(file, macro) Set wb = app.Workbooks.Open(file) app.Run wb2.Name & "!" & macro wb.SaveAs fso.BuildPath(file.ParentFolder, fso.GetBaseName(file) & ".xlsm"), 52 wb.Close End Sub Set fso = CreateObject("Scripting.FileSystemObject") Set app = CreateObject("Excel.Application") app.Visible = False app.DisplayAlerts = False Set wb2 = app.Workbooks.Open("C:\Users\ntunstall\AppData\Roaming\Microsoft\Excel\XLSTART\PERSONAL.XLSB") For Each file In fso.GetFolder(dir).Files If InStr(file.Name, "OPS") > […]

Dir（）如何在VBA中工作: 在我当前的VBA代码中，我生成一个名为myFileName的variables，并希望在检查文件是否存在时将其用作参数，但在我使用的行中出现“Runtime error 52，bad file name or number”错误消息Dir命令。有趣的是，如果我手动键入文件path到Dir命令而不是使用myFileNamevariables，那么它没有问题。（没有错字，我可以在读取或写入文件时使用myFileName，它只会为Dir命令删除一个错误）任何想法如何使Dir（myFileName）工作？ Set fs = CreateObject("Scripting.FileSystemObject") myFileName = Environ("USERPROFILE") & "\Application Data\myFile.txt" If Dir(myFileName) = "" Then Set a = fs.CreateTextFile(myFileName, True) a.Write ("0") a.Close End If

如何在vb.net中读取excel文件: 下面的代码是打开excel文件并从中读取的，我想配置excel文件可以删除它： Dim strNewPath As String = Server.MapPath("~/UploadedExcel/" & strFileName & strFileType) 'Connection String to Excel Workbook If strFileType.Trim = ".xls" Then connString2 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strNewPath & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=2""" ElseIf strFileType.Trim = ".xlsx" Then connString2 = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & strNewPath & ";Extended Properties=""Excel 12.0;HDR=Yes;IMEX=2""" End If query = "SELECT * FROM [Sheet1$]" 'Create […]

HRESULTexception：0x800A03EC保存Excel文件时出错: 我正在button的点击事件保存数据，下面是代码： using Excel = Microsoft.Office.Interop.Excel; Excel.Application xlApp; Excel.Workbook xlWorkBook; Excel.Worksheet xlWorkSheet; Excel.Range range; object misValue = System.Reflection.Missing.Value; String st = System.IO.Directory.GetCurrentDirectory() + "\\A.xlsx"; xlApp = new Excel.ApplicationClass(); xlWorkBook = xlApp.Workbooks.Open(st, 0, true, 5, "", "", true, Microsoft.Office.Interop.Excel.XlPlatform.xlWindows, "\t", false, false, 0, true, 1, 0); xlWorkSheet = (Excel.Worksheet)xlWorkBook.Worksheets.get_Item(1); int i = 6; for (i = 6; […]

search具有不同关键字的文件: 我正在编写一个macros，它将查找一个文件并将其附加到电子邮件。到目前为止，我已经破解了代码，devise如下 – 开始在指定的目录中 – 生成目录中的文件夹列表>导出到临时创build的工作表上的单元格 – 循环访问该文件夹列表，search文件夹的存在（所有这些子文件夹标有numbereg / 13456 /） – 当它find编号的作业文件夹，然后再检查一个子文件夹，“图纸” – 如果文件夹标有“图纸”存在，我们想要的文件将在那里。 – 如果文件夹“图纸”不存在，我们想要的文件将在编号的作业文件夹中。现在在这里，我陷入困境。目前，我的代码使用search词“ FIRST .pdf”在这两个位置查找文件。我也想search其他词组，例如“ UPPER .pdf”，“ 1st .pdf”，“ UF .pdf”。最好的办法是做一个循环引用表格上的单元格，因此需要创build另一个临时表单并填充更多的单元格？还是有一个棘手的方式，这可以用循环代码而不需要这样做？再一次，我的代码被相当粗暴地砍在一起，就像我去学习一样。 macros观的要求也在不断变化，人们正在意识到还有什么可以做的，所以逻辑并没有一次性devise出来。：\ Sub Concrete_Order() 'code deleted from above area in question Dim foldersearchpath As String, ctr As Integer, UFPLANNAME As String, UFPLANpdf As String […]