我已经连接到一个ftp位置使用;
URL url = new URL("ftp://user:password@mydomain.com/" + file_name +";type=i");
我将内容读入字节数组,如下所示;
byte[] buffer = new byte[1024];
int count = 0;
while((count = fis.read(buffer)) > 0)
{
//check if bytes in buffer is a file
}
我希望能够检查buffer中的字节是否是一个文件,而不显式地传递特定的文件
在我的应用程序的上传部分,在从iPhone上传了一个文件之后,服务器将该文件置于多个处理阶段。
我使用的结构,保存上传的文件信息,脚本调用,等等。
struct XFile {
let key: String
let filename: String
let data: Data
var mimeType: String?
let url: URL
var toUrl : URL?
var upStatus : UpStatus?
var fileStage : Int32?
init(fileUrl: URL,
我有两个VBA密码。一个循环遍历并打印文件属性,另一个则捕获文件的所有者。
如何将文件所有者VBA代码合并到“文件属性”中,以便将文件名、修改日期和所有者打印到工作表上?
文件属性- VBA
Sub MainList()
Application.ScreenUpdating = True
Set Folder = Application.FileDialog(msoFileDialogFolderPicker)
If Folder.Show <> -1 Then Exit Sub
xDir = Folder.SelectedItems(1)
我试图根据excel中的列表重命名一个文件,例如A列有旧的文件名,B列有新的文件名。它适用于某些文件,但不重命名某些文件。THis是我使用的宏:
Sub RenameFiles()
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile =
我正在excel中的一个项目中工作,在那里我要重命名多个文件。
Fow现在我正在使用以下代码
Sub RenameFiles()
Dim xDir As String
Dim xFile As String
Dim xRow As Long
With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
If .Show = -1 Then
xDir = .SelectedItems(1)
xFile = Dir(xDir & Ap
我正在运行一个具有过滤数据的Xlookup宏。问题是当它填充数据时,聚合需要很长时间,最终会崩溃。但是,我注意到,当我逃离宏时,数据中的1分钟实际上就会出现。我想知道如何才能使数据在不受时间间隔或被迫转义的情况下聚合。
Dim lastrow As Long
lastrow = Sheets("Sheet1").UsedRange.SpecialCells(xlCellTypeLastCell).Row
Dim MyPath As String
MyPath = "F:\VMWare\supplementalfiles"
Dim LatestFile As
我在谷歌上搜索,但没有得到结果,我的代码如下:
import sys
reload(sys)
sys.setdefaultencoding("utf-8")
from pydrive.auth import GoogleAuth
from pydrive.drive import GoogleDrive
# this function used inside function do_the_work(drive)
def upload_gd(media_file, drive):
print 'Try uploading ' + media_file
Sub GetFileList()
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim objOL As Object
Dim Msg As Object
Dim xPath As String
Dim thisFile As String
Dim i As Integer
Dim lastrow As Long
xPath = Sheets("UI").Range("D7")
我正在寻找一种方法,以选择多个.jpg文件在一个文件夹,并复制到另一个文件夹。这是我正在使用的代码,但它似乎无法将其移动到目标文件。
我还使用了excel工作表,其中粘贴了我想要复制到行A中的文件名。
Sub CopyFiles()
Dim xDir As String
Dim xFile As String
Dim xRow As Long
Dim FSO As Object
Dim FromPath As String
Dim ToPath As String
Dim FileExt As String
Dim FNames
当我试图生成一个word文档时,它会在80%的进度栏停止,并显示以下错误.
当我尝试调试它时,我看到了这个
,我现在收到了For i = 1 To .InlineShapes.Count的错误
我的代码
Sub FillABookmark(strBM As String, strText As String)
Dim j As Long
With ActiveDocument
.Bookmarks(strBM).Range _
.InlineShapes _
.AddPicture FileName:=strT
我使用以下代码在VBA中重命名文件 Sub Dateien_umbenennen()
Dim xDir As String
Dim xFile As String
Dim xRow As Long
Dim oFSO As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
xDir = oFSO.GetFolder(ThisWorkbook.Sheets("Sheet1").Range("F4").Value)
xFile = Dir(xDir & "\
我的目标是导出文件夹中的txt文件,并将其合并到一个excel工作表中,并分别在单独的列中获取txt文件的文件名和保存日期。
当我试图通过下面的代码将txt文件合并到excel的一个文件夹中时,我在.Refresh BackgroundQuery:=True中得到了一个运行时错误1004 --为什么我会得到这个错误?
Sub test()
Dim wbk As Workbook, wksht As Worksheet
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
我试图重命名这样的文件:
T003_TAR_Witness Stmt Summary_190624_GOODYEAR.pdf
以下各点:
T003_TAR_Witness Stmt Summary_190624_GOODYEAR_ADTC.pdf
到目前为止,我需要删除文件扩展名,但需要在中间添加"_ADTC“。
'Lets rename the original file and mark so no dupulcate disclosues
onlyFile = Left(xFile.Name, InStrRev(xFile.Name, ".") - 1)
我的问题主要是在修改一张纸和保存书时,所有的纸张都以文本形式保存,包括带枢轴表的纸张。
这是我的密码:
import openpyxl
xfile = openpyxl.load_workbook('book1.xlsx')
sheet = xfile.get_sheet_by_name('my_data')
sheet['A2'] = 'hello world'
xfile.save('book2.xlsx') #all sheets of book save as text
我正在创建一个excel工作表,以便在数据库中搜索word (.docx)文档,然后我想打开它们。如果是电子表格,我可以找到文件并将其打开。但我无法打开word文档?我在"objWord.documents.Open xFile“行出现不匹配错误,有答案吗??
Private Sub CommandButton1_Click()
Call FindFile
End Sub
Sub FindFile()
Dim xFile As File
Dim xFolder As Folder
Set Fsys = CreateObject("Scripting.FileSyst
我在excel中编写了一个VBA代码(主要是通过合并来自其他人的各种代码
是否有可能提高收集相同信息的效率?
Sub MainList()
Set folder = Application.FileDialog(msoFileDialogFolderPicker)
If folder.Show <> -1 Then Exit Sub
xDir = folder.SelectedItems(1)
Cells(3, 1) = Now()
Call ListFilesInFolder(xDir, True)
Cells(5, 1) = No
提前感谢您的帮助!
我目前正在使用下面的代码将多个.csv文件填充到一个工作表中,然后隐藏该工作表。我需要的帮助是从该工作表中删除重复行。它能被合并到这个代码中吗?谢谢!
Sub ImportCSVsWithReference()
'UpdatedforSPSS
Dim xSht As Worksheet
Dim xWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
On Error GoTo ErrHandler
我需要一些帮助,我有下面的脚本,将".xls“文件转换为谷歌电子表格,但我需要你始终使用最近的文件,是在文件夹A,我不能这样做。
function importXLS(){
var folderBId = "ID FOLDER"; // Added // Please set the folder ID of "FolderB".
var files = DriveApp.getFolderById('ID FOLDER').searchFiles('title != "nothing"'
我在网上找到了一个宏,它读取"dat“文件或"text”文件,并将它们放入打开的excel中,使用下面的宏为指定文件夹中的每个文件创建一个选项卡。现在的问题是,我必须在同一个excel中不断重新导入新数据,因为数据正在变化,或者我必须重新读取该文件。 因此,如果名称已存在,此宏将始终创建一个新选项卡。我需要它来覆盖数据,而不是重新创建新的选项卡。我还有其他选项卡正在引用导入的数据选项卡。所以我不确定该怎么做。 Sub loadMacro()
'UpdatebyExtendoffice6/7/2016
Dim xWb As Workbook
Dim xToBook As
有谁能帮帮忙吗?我让VBA在通过电子邮件发送附件的电子表格上选择一个范围。如果我在选择范围时单击cancel,我会得到一个run time 424 object required。有没有我可以添加的代码来用一个msg框覆盖它。谢谢。
Sub SendRange()
Dim xFile As String
Dim xFormat As Long
Dim Wb As Workbook
Dim Wb2 As Workbook
Dim Ws As Worksheet
Dim FilePath As String
Dim FileName As String
Dim OutlookApp As Obje
我已经成功地制作了一个宏,它将多个xml文件导入到excel中,在单独的表中。问题是有些表包含一个额外的列。我希望所有表的列名都在同一列中。 我使用的是VBA,我对此没有太多的经验。 Sub CommandButton1_Click()
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
On Error GoTo ErrH
我使用下面的代码将多个xml文件导入到excel中。代码运行得很好。我面临的唯一问题是,它不是导入到excel作为XML表。我想将它们作为表格导入,以便与此数据进一步处理。
Sub XMLtoExcel()
Dim xWb As Workbook
Dim xSWb As Workbook
Dim xStrPath As String
Dim xFileDialog As FileDialog
Dim xFile As String
Dim xCount As Long
Set xFileDialog = Application.FileD